perm filename TTEST0.LOG[CM,DEK] blob
sn#788873 filedate 1985-04-13 generic text, type T, neo UTF8
This is METAFONT, WAITS Version 0.81 (preloaded base=plain 85.4.11) 13 APR 1985 21:06
**ttest0
(TTEST0.MF[CM,DEK] (CMBASE.MF[CM,DEK]) (CMTT10.MF[CM,DEK]) (TEST0.MF[CM,DEK]
Ampersand
{tracingedges:=2}
{tracingtitles:=1}
{tracingequations:=1}
{tracingcapsules:=1}
{tracingspecs:=1}
{tracingpens:=1}
{tracingchoices:=1}
{tracingstats:=2}
{tracingoutput:=1}
{tracingmacros:=3}
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-1
{(25)-(19.99995)}
(EXPR3)<-5.00005
(EXPR4)<-0
{begingroup}
{if}
{known(5.00005)}
{true}
{if}
{(5.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1l
{begingroup}
{endgroup}
{((x1r,y1r))-((x1l,y1l))}
{((5.00005,0))rotated(0)}
{((linearform,linearform))=((5.00005,0))}
## y1r=y1l
## x1r=x1l+5.00005
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1r
{begingroup}
{endgroup}
{((x1l+5.00005,y1l))-((x1l,y1l))}
{(0.5)*((5.00005,0))}
{((x1l,y1l))+((2.50003,0))}
{((x1,y1))=((x1l+2.50003,y1l))}
## y1=y1l
## x1=x1l+2.50003
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
whatever->begingroup.save?;?endgroup
(SUFFIX0)<-
(SUFFIX1)<-whatever
{begingroup}
{save}
### -?=-%CAPSULE2416
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
{(54)-(142.64323)}
{(0.6)*(-88.64323)}
{(142.64323)+(-53.18648)}
{((89.45676,0))-((142.64323,145))}
{(%CAPSULE2416)*((-53.18648,-145))}
### 145%CAPSULE2416 = -ypart %CAPSULE3716
{((142.64323,145))+((0.3668ypart %CAPSULE3716,ypart %CAPSULE3716))}
### -ypart %CAPSULE3716=-ypart %CAPSULE3625+145
{((x1l+2.50003,y1l))=((0.3668ypart %CAPSULE3625+89.45636,ypart %CAPSULE3625))}
## ypart %CAPSULE3625=y1l
## x1l=0.3668y1l+86.95633
max(TEXT2)->begingroup.save.u_;boolean.u_;for.u=(TEXT2):if.boolean.u_:setu_.u;e
lseif.u_<u:u_:=u;fi.endfor.u_.endgroup
(SUFFIX0)<-
(SUFFIX1)<-max
(TEXT2)<-y0-1.5bracket-0.2x_height,2/3x_height
{begingroup}
{save}
{boolean}
{for}
{(1.5)*(0)}
{(145)-(0)}
{(0.2)*(155)}
{(145)-(30.99953)}
{(2/3)*(155)}
{loop value=114.00047}
{if}
{boolean(unknown boolean u_)}
{true}
setu_<primary>->if.numeric(EXPR0):numeric.u_.elseif.string(EXPR0):string.u_.els
e:pair.u_.fi;u_=(EXPR0)
(EXPR0)<-114.00047
{if}
{numeric(114.00047)}
{true}
{numeric}
{elseif}
{(u_)=(114.00047)}
## u_=114.00047
{elseif}
{[repeat the loop]}
{loop value=103.33333}
{if}
{boolean(114.00047)}
{false}
{(114.00047)<(103.33333)}
{false}
{[repeat the loop]}
{endgroup}
{(y1l)=(114.00047)}
## y1l=114.00047
#### x1l=128.77238
#### x1=131.27242
#### y1=114.00047
#### x1r=133.77243
#### y1r=114.00047
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z0e---z1e...{left}z2e
{begingroup}
{forsuffixes}
{loop value=l}
---->..tension.infinity..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2l
{begingroup}
{endgroup}
Path at line 11, before choices:
(140.1432,145){curl 1}..tension 4095.99998
..(128.77238,114.00047)..tension atleast1
..{-4096,0}(54,8.00003)
Path at line 11, after choices:
(140.1432,145)..controls (140.14227,144.99748) and (128.77332,114.00299)
..(128.77238,114.00047)..controls (111.62814,67.26125) and (89.89076,8.00003)
..(54,8.00003)
{path_.l:=path}
{[repeat the loop]}
{loop value=r}
---->..tension.infinity..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2r
{begingroup}
{endgroup}
Path at line 11, before choices:
(145.14325,145){curl 1}..tension 4095.99998
..(133.77243,114.00047)..tension atleast1
..{-4096,0}(54,5.99998)
Path at line 11, after choices:
(145.14325,145)..controls (145.14232,144.99748) and (133.77336,114.00299)
..(133.77243,114.00047)..controls (116.04237,65.66414) and (94.15718,5.99998)
..(54,5.99998)
{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
{reverse(path)}
Path at line 11, before choices:
(140.1432,145)..controls (140.14227,144.99748) and (128.77332,114.00299)
..(128.77238,114.00047)..controls (111.62814,67.26125) and (89.89076,8.00003)
..(54,8.00003){curl 1}
..{curl 1}(54,5.99998)..controls (94.15718,5.99998) and (116.04237,65.66414)
..(133.77243,114.00047)..controls (133.77336,114.00299) and (145.14232,144.997
48)
..(145.14325,145){curl 1}
..{curl 1}cycle
Path at line 11, after choices:
(140.1432,145)..controls (140.14227,144.99748) and (128.77332,114.00299)
..(128.77238,114.00047)..controls (111.62814,67.26125) and (89.89076,8.00003)
..(54,8.00003)..controls (54,7.33334) and (54,6.66667)
..(54,5.99998)..controls (94.15718,5.99998) and (116.04237,65.66414)
..(133.77243,114.00047)..controls (133.77336,114.00299) and (145.14232,144.997
48)
..(145.14325,145)..controls (143.47656,145) and (141.80989,145)
..cycle
{endgroup}
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 11, before subdivision into octants:
(140.1432,145)..controls (140.14227,144.99748) and (128.77332,114.00299)
..(128.77238,114.00047)..controls (111.62814,67.26125) and (89.89076,8.00003)
..(54,8.00003)..controls (54,7.33334) and (54,6.66667)
..(54,5.99998)..controls (94.15718,5.99998) and (116.04237,65.66414)
..(133.77243,114.00047)..controls (133.77336,114.00299) and (145.14232,144.997
48)
..(145.14325,145)..controls (143.47656,145) and (141.80989,145)
..cycle
Cycle spec at line 11, after subdivision and autorounding:
(140.00781,145) % beginning in octant `Sw'
..controls (140.00688,144.99748) and (128.64185,114.03174)
..(128.64091,114.02922) % segment 0
..controls (116.49106,80.92514) and (102.03355,41.53355)
..(81.86334,21.36334) % segment 1
% entering octant `Ws'
..controls (73.5477,13.0477) and (64.3287,8.00005)
..(54,8.00005) % segment 1
% entering octant `Sw'
..controls (54,7.33336) and (54,6.66669)
..(54,6) % segment 2
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
..controls (66.51581,6) and (77.19606,11.69606)
..(86.48923,20.98923) % segment 3
% entering octant `Ne'
..controls (107.27484,41.77484) and (121.45494,80.57501)
..(133.66046,113.97229) % segment 3
..controls (133.66139,113.97481) and (144.99907,144.99748)
..(145,145) % segment 4
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (143.33594,145) and (141.67188,145)
..(140.00781,145) % segment 5
& cycle
Tracing edges at line 11: (weight 1)
@ Octant Sw (4 offsets), from (132.00781,151) to (73.86334,27.36334)
@ transition line 5, from (132.00781,151) to (132.00781,151)
@ transition line 4, from (132.00781,151) to (131.00781,149.5)
@ transition line 3, from (84.54918,40.42964) to (85.54918,41.92964)
@ transition line 4, from (73.86334,27.36334) to (72.86334,25.86334)
@ transition line 3, from (72.86334,25.86334) to (72.36334,24.36334)
@ transition line 2, from (72.36334,24.36334) to (71.86334,22.36334)
@ transition line 1, from (71.86334,22.36334) to (71.86334,20.36334)
(132,151)(132,150)(131,150)(131,148)(130,148)(130,145)(129,145)(129,143)
(128,143)(128,140)(127,140)(127,137)(126,137)(126,134)(125,134)(125,132)
(124,132)(124,129)(123,129)(123,126)(122,126)(122,124)(121,124)(121,121)
(120,121)(120,118)(119,118)(119,115)(118,115)(118,113)(117,113)(117,110)
(116,110)(116,107)(115,107)(115,105)(114,105)(114,102)(113,102)(113,99)
(112,99)(112,97)(111,97)(111,94)(110,94)(110,92)(109,92)(109,89)(108,89)
(108,87)(107,87)(107,84)(106,84)(106,82)(105,82)(105,79)(104,79)(104,77)
(103,77)(103,75)(102,75)(102,72)(101,72)(101,70)(100,70)(100,68)(99,68)
(99,66)(98,66)(98,64)(97,64)(97,62)(96,62)(96,60)(95,60)(95,58)(94,58)
(94,56)(93,56)(93,54)(92,54)(92,52)(91,52)(91,50)(90,50)(90,48)(89,48)
(89,47)(88,47)(88,45)(87,45)(87,43)(86,43)(86,42)(85,42)(85,40)(84,40)
(84,39)(83,39)(83,38)(82,38)(82,36)(81,36)(81,35)(80,35)(80,34)(79,34)
(79,32)(78,32)(78,31)(77,31)(77,30)(76,30)(76,29)(75,29)(75,28)(74,28)
(74,27)(73,27)(73,25)(72,25)
@ retrograde line from (71.86334,20.36334) to (73.86334,27.36334)
(72,20)(72,23)(73,23)(73,26)(74,26)
@ Octant Ws (4 offsets), from (73.86334,27.36334) to (46,14.00005)
@ retrograde line from (73.86334,27.36334) to (82.86334,31.36334)
(74,28)(76,28)(76,29)(79,29)(79,30)(81,30)
@ transition line 0, from (82.86334,31.36334) to (80.86334,31.36334)
@ transition line 1, from (80.86334,31.36334) to (78.86334,30.86334)
@ transition line 2, from (78.86334,30.86334) to (77.36334,30.36334)
@ transition line 3, from (77.36334,30.36334) to (75.86334,29.36334)
@ transition line 4, from (67.30228,22.24509) to (68.80228,23.24509)
@ transition line 3, from (59.5763,18.65309) to (61.0763,19.15309)
@ transition line 2, from (58.6445,18.4442) to (60.6445,18.9442)
@ transition line 1, from (53,18.00005) to (51,17.50005)
@ transition line 2, from (51,17.50005) to (49.5,17.00005)
@ transition line 3, from (49.5,17.00005) to (48,16.00005)
@ transition line 4, from (48,16.00005) to (46,14.00005)
(81,31)(78,31)(78,30)(76,30)(76,29)(75,29)(75,28)(74,28)(74,27)(73,27)
(73,26)(72,26)(72,25)(70,25)(70,24)(69,24)(69,23)(68,23)(68,22)(66,22)
(66,21)(64,21)(64,20)(62,20)(62,19)(59,19)(59,18)(51,18)(51,17)(49,17)
(49,16)(47,16)(47,15)(46,15)
@ Octant Sw (4 offsets), from (46,14.00005) to (44,5)
@ transition line 5, from (46,14.00005) to (46,14.00005)
@ transition line 4, from (46,14.00005) to (45,12.50005)
@ transition line 3, from (45,12.50005) to (44.5,11.00005)
@ transition line 2, from (44.5,11.00005) to (44,9.00005)
@ transition line 1, from (44,7) to (44,5)
(46,13)(45,13)(45,11)(44,11)
@ Octant Se (4 offsets), from (44,5) to (46,0)
@ transition line 0, from (44,5) to (44,5)
@ transition line 1, from (44,5) to (44.5,3)
@ transition line 2, from (44.5,3) to (45,1.5)
@ transition line 3, from (45,1.5) to (46,0)
@ transition line 4, from (46,0) to (46,0)
(44,3)(45,3)(45,1)(46,1)
@ Octant Es (4 offsets), from (46,0) to (53,-4)
@ transition line 5, from (46,0) to (48,-2)
@ transition line 4, from (48,-2) to (49.5,-3)
@ transition line 3, from (49.5,-3) to (51,-3.5)
@ transition line 2, from (51,-3.5) to (53,-4)
@ transition line 1, from (53,-4) to (53,-4)
(46,0)(47,0)(47,-1)(48,-1)(48,-2)(49,-2)(49,-3)(51,-3)
@ Octant En (4 offsets), from (53,-4) to (94.48923,14.98923)
@ transition line 0, from (53,-4) to (55,-4)
@ transition line 1, from (64.64063,-2.82188) to (66.64063,-2.32188)
@ transition line 2, from (69.5839,-1.46428) to (71.0839,-0.96428)
@ transition line 3, from (81.74825,4.3222) to (83.24825,5.3222)
@ transition line 4, from (92.48923,12.98923) to (94.48923,14.98923)
(51,-4)(61,-4)(61,-3)(66,-3)(66,-2)(69,-2)(69,-1)(72,-1)(72,0)(75,0)
(75,1)(77,1)(77,2)(79,2)(79,3)(80,3)(80,4)(82,4)(82,5)(84,5)(84,6)(85,6)
(85,7)(86,7)(86,8)(88,8)(88,9)(89,9)(89,10)(90,10)(90,11)(91,11)(91,12)
(92,12)(92,13)(93,13)(93,14)(94,14)
@ Octant Ne (4 offsets), from (94.48923,14.98923) to (155,146)
@ transition line 5, from (94.48923,14.98923) to (94.48923,14.98923)
@ transition line 4, from (106.75854,30.25873) to (107.75854,31.75873)
@ transition line 3, from (154,140.5) to (154.5,142)
@ transition line 2, from (154.5,142) to (155,144)
@ transition line 1, from (155,144) to (155,146)
(94,15)(95,15)(95,16)(96,16)(96,17)(97,17)(97,18)(98,18)(98,19)(99,19)
(99,20)(100,20)(100,22)(101,22)(101,23)(102,23)(102,24)(103,24)(103,26)
(104,26)(104,27)(105,27)(105,28)(106,28)(106,30)(107,30)(107,31)(108,31)
(108,33)(109,33)(109,34)(110,34)(110,36)(111,36)(111,38)(112,38)(112,39)
(113,39)(113,41)(114,41)(114,43)(115,43)(115,45)(116,45)(116,47)(117,47)
(117,48)(118,48)(118,50)(119,50)(119,52)(120,52)(120,54)(121,54)(121,57)
(122,57)(122,59)(123,59)(123,61)(124,61)(124,63)(125,63)(125,65)(126,65)
(126,68)(127,68)(127,70)(128,70)(128,72)(129,72)(129,75)(130,75)(130,77)
(131,77)(131,80)(132,80)(132,82)(133,82)(133,85)(134,85)(134,87)(135,87)
(135,90)(136,90)(136,93)(137,93)(137,95)(138,95)(138,98)(139,98)(139,101)
(140,101)(140,104)(141,104)(141,106)(142,106)(142,109)(143,109)(143,112)
(144,112)(144,115)(145,115)(145,117)(146,117)(146,120)(147,120)(147,123)
(148,123)(148,125)(149,125)(149,128)(150,128)(150,131)(151,131)(151,134)
(152,134)(152,136)(153,136)(153,139)(154,139)(154,142)(155,142)
@ Octant Nw (4 offsets), from (155,146) to (153,151)
@ transition line 0, from (155,146) to (155,146)
@ transition line 1, from (155,146) to (154.5,148)
@ transition line 2, from (154.5,148) to (154,149.5)
@ transition line 3, from (154,149.5) to (153,151)
@ transition line 4, from (153,151) to (153,151)
(155,148)(154,148)(154,150)(153,150)
@ Octant Wn (4 offsets), from (153,151) to (146,155)
@ transition line 5, from (153,151) to (151,153)
@ transition line 4, from (151,153) to (149.5,154)
@ transition line 3, from (149.5,154) to (148,154.5)
@ transition line 2, from (148,154.5) to (146,155)
@ transition line 1, from (146,155) to (146,155)
(153,152)(152,152)(152,153)(150,153)(150,154)(148,154)
@ Octant Ws (4 offsets), from (146,155) to (132.00781,151)
@ transition line 0, from (146,155) to (144,155)
@ transition line 1, from (139.00781,155) to (137.00781,154.5)
@ transition line 2, from (137.00781,154.5) to (135.50781,154)
@ transition line 3, from (135.50781,154) to (134.00781,153)
@ transition line 4, from (134.00781,153) to (132.00781,151)
(148,155)(137,155)(137,154)(135,154)(135,153)(134,153)(134,152)(133,152)
(133,151).
cup_serif(SUFFIX0)(SUFFIX1)(SUFFIX2)(EXPR3)(EXPR4)(SUFFIX5)(EXPR6)(EXPR7)<suffi
x>->serif((SUFFIX0),(SUFFIX1),(SUFFIX2),(EXPR3),-(EXPR4))(SUFFIX8);serif((SUFFI
X0),(SUFFIX1),(SUFFIX5),(EXPR6),(EXPR7))(SUFFIX8);if.cup>0:pickup.tiny.nib;nume
ric.cup_out,cup_in;if.y(SUFFIX0)<y(SUFFIX1):cup_out=bot.y(SUFFIX0);cup_in=cup_o
ut+cup;else:cup_out=top.y(SUFFIX0);cup_in=cup_out-cup;fi.erase.fill(x(SUFFIX2)1
,cup_out)..(x(SUFFIX0),cup_in)..(x(SUFFIX5)1,cup_out)--cycle;fi
(SUFFIX0)<-0
(SUFFIX1)<-1
(SUFFIX2)<-a
(EXPR3)<-0.6
{(1.5)*(21.85675)}
(EXPR4)<-32.78513
(SUFFIX5)<-b
(EXPR6)<-0.5
(EXPR7)<-21.85675
(SUFFIX8)<-dark
serif(SUFFIX2)(SUFFIX3)(SUFFIX4)(EXPR5)(EXPR6)<suffix>->begingroup.pickup.crisp
.nib;numeric.bracket_height;pair.downward;bracket_height=if.str(SUFFIX7)="dark"
:1.5fi.bracket;if.y(SUFFIX2)<y(SUFFIX3):y(SUFFIX4)2=min(y(SUFFIX2)+bracket_heig
ht,y(SUFFIX3));top.y(SUFFIX4)1-slab=bot.y(SUFFIX4)0=tiny.bot.y(SUFFIX2);downwar
d=z(SUFFIX2)-z(SUFFIX3);if.y(SUFFIX4)1>y(SUFFIX4)2:y(SUFFIX4)2:=y(SUFFIX4)1;fi.
else:y(SUFFIX4)2=max(y(SUFFIX2)-bracket_height,y(SUFFIX3));bot.y(SUFFIX4)1+slab
=top.y(SUFFIX4)0=tiny.top.y(SUFFIX2);downward=z(SUFFIX3)-z(SUFFIX2);if.y(SUFFIX
4)1<y(SUFFIX4)2:y(SUFFIX4)2:=y(SUFFIX4)1;fi.fi.if(EXPR6)<0:z(SUFFIX4)2+penoffse
t.downward.of.currentpen=z(SUFFIX2)l+penoffset.downward.of.pen_[tiny.nib]+whate
ver*downward;z(SUFFIX4)3=z(SUFFIX4)2+(epsilon,0);lft.x(SUFFIX4)0=lft.x(SUFFIX4)
1=tiny.lft.x(SUFFIX2)l+(EXPR6);else:z(SUFFIX4)2-penoffset.downward.of.currentpe
n=z(SUFFIX2)r-penoffset.downward.of.pen_[tiny.nib]+whatever*downward;z(SUFFIX4)
3=z(SUFFIX4)2-(epsilon,0);rt.x(SUFFIX4)0=rt.x(SUFFIX4)1=tiny ETC.
(SUFFIX0)<-
(SUFFIX1)<-serif
(SUFFIX2)<-0
(SUFFIX3)<-1
(SUFFIX4)<-a
(EXPR5)<-0.6
{-(32.78513)}
(EXPR6)<--32.78513
(SUFFIX7)<-dark
{begingroup}
pickup<secondary>->if.numeric(EXPR0):currentpen:=pen_[(EXPR0)];pen_top:=pen_top
_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt
_[(EXPR0)];currentpen_path:=pen_path_[(EXPR0)];else:currentpen:=(EXPR0)yscaled.
aspect_ratio;pen_top:=(ypart.penoffset.left.of.currentpen)/aspect_ratio;pen_bot
:=(ypart.penoffset.right.of.currentpen)/aspect_ratio;pen_lft:=xpart.penoffset.d
own.of.currentpen;pen_rt:=xpart.penoffset.up.of.currentpen;path.currentpen_path
;fi
(EXPR0)<-2
{if}
{numeric(2)}
{true}
{currentpen:=pen}
{pen_top:=10}
{pen_bot:=-10}
{pen_lft:=-10}
{pen_rt:=10}
{currentpen_path:=unknown path pen_path_2}
{else}
{numeric}
{pair}
{if}
{("dark")=("dark")}
{true}
{fi}
{(1.5)*(0)}
{(bracket_height)=(0)}
## bracket_height=0
{if}
{(145)<(114.00047)}
{false}
max(TEXT2)->begingroup.save.u_;boolean.u_;for.u=(TEXT2):if.boolean.u_:setu_.u;e
lseif.u_<u:u_:=u;fi.endfor.u_.endgroup
(SUFFIX0)<-
(SUFFIX1)<-max
(TEXT2)<-y0-bracket_height,y1
{begingroup}
{save}
{boolean}
{for}
{(145)-(0)}
{loop value=145}
{if}
{boolean(unknown boolean u_)}
{true}
setu_<primary>->if.numeric(EXPR0):numeric.u_.elseif.string(EXPR0):string.u_.els
e:pair.u_.fi;u_=(EXPR0)
(EXPR0)<-145
{if}
{numeric(145)}
{true}
{numeric}
{elseif}
{(u_)=(145)}
## u_=145
{elseif}
{[repeat the loop]}
{loop value=114.00047}
{if}
{boolean(145)}
{false}
{(145)<(114.00047)}
{false}
{[repeat the loop]}
{endgroup}
{(y.a2)=(145)}
## y.a2=145
bot<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_bot)else:pen_bot.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-bot
(EXPR2)<-y.a1
{begingroup}
{if}
{pair(y.a1)}
{false}
{fi}
{(y.a1)+(-10)}
{endgroup}
{(y.a1-10)+(22)}
top<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_top)else:pen_top.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-top
(EXPR2)<-y.a0
{begingroup}
{if}
{pair(y.a0)}
{false}
{fi}
{(y.a0)+(10)}
{endgroup}
tiny.top<primary>->begingroup(EXPR2)+(10)endgroup
(SUFFIX0)<-tiny
(SUFFIX1)<-top
(EXPR2)<-145
{begingroup}
{(145)+(10)}
{endgroup}
{(y.a0+10)=(155)}
## y.a0=145
{(y.a1+12)=(155)}
## y.a1=143
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
{((131.27242,114.00047))-((142.64323,145))}
{((xpart downward,ypart downward))=((-11.37082,-30.99953))}
## ypart downward=-30.99953
## xpart downward=-11.37082
{if}
{(143)<(145)}
{true}
{y.a2:=143}
## y.a2=143
{fi}
{fi}
{if}
{(-32.78513)<(0)}
{true}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
{((-11.37082,-30.99953))penoffset(pen)}
{((x.a2,143))+((-9,4.5))}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0l
{begingroup}
{endgroup}
{((-11.37082,-30.99953))penoffset(pen)}
{((140.1432,145))+((-9,4.5))}
whatever->begingroup.save?;?endgroup
(SUFFIX0)<-
(SUFFIX1)<-whatever
{begingroup}
{save}
### -?=-%CAPSULE4835
{endgroup}
{(%CAPSULE4835)*((-11.37082,-30.99953))}
### 30.99953%CAPSULE4835 = -ypart %CAPSULE4833
{((131.1432,149.5))+((0.3668ypart %CAPSULE4833,ypart %CAPSULE4833))}
### -ypart %CAPSULE4833=-ypart %CAPSULE4815+149.5
{((x.a2-9,147.5))=((0.3668ypart %CAPSULE4815+76.3057,ypart %CAPSULE4815))}
## ypart %CAPSULE4815=147.5
#### xpart %CAPSULE4815=130.40959
## x.a2=139.40959
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a3
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
{((139.40959,143))+((0.00002,0))}
{((x.a3,y.a3))=((139.4096,143))}
## y.a3=143
## x.a3=139.4096
lft<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_lft,0)else:pen_lft.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-lft
(EXPR2)<-x.a0
{begingroup}
{if}
{pair(x.a0)}
{false}
{fi}
{(x.a0)+(-10)}
{endgroup}
lft<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_lft,0)else:pen_lft.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-lft
(EXPR2)<-x.a1
{begingroup}
{if}
{pair(x.a1)}
{false}
{fi}
{(x.a1)+(-10)}
{endgroup}
tiny.lft<primary>->begingroup(EXPR2)+(-10)endgroup
(SUFFIX0)<-tiny
(SUFFIX1)<-lft
(EXPR2)<-140.1432
{begingroup}
{(140.1432)+(-10)}
{endgroup}
{(130.1432)+(-32.78513)}
{(x.a1-10)=(97.35808)}
## x.a1=107.35808
{(x.a0-10)=(97.35808)}
## x.a0=107.35808
{else}
{pair}
{ypart((xpart corner,ypart corner))}
{(ypart corner)=(143)}
## ypart corner=143
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
whatever->begingroup.save?;?endgroup
(SUFFIX0)<-
(SUFFIX1)<-whatever
{begingroup}
{save}
### -?=-%CAPSULE4807
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
{((142.64323,145))-((131.27242,114.00047))}
{(%CAPSULE4807)*((11.37082,30.99953))}
### -30.99953%CAPSULE4807 = -ypart %CAPSULE4795
{((139.40959,143))+((0.3668ypart %CAPSULE4795,ypart %CAPSULE4795))}
### -ypart %CAPSULE4795=-ypart %CAPSULE4777+143
{((xpart corner,143))=((0.3668ypart %CAPSULE4777+86.95633,ypart %CAPSULE4777))}
## ypart %CAPSULE4777=143
#### xpart %CAPSULE4777=139.40959
## xpart corner=139.40959
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
{((142.64323,145))-((131.27242,114.00047))}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
{((139.40959,143))-((107.35808,143))}
{(0.5)*((32.05151,0))}
{((107.35808,143))+((16.02576,0))}
{((123.38383,143))-((139.40959,143))}
{(0.6)*((-16.02576,0))}
{((139.40959,143))+((-9.61555,0))}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
{((107.35808,143))-((139.40959,143))}
...->..tension.atleast1..
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a1
{begingroup}
{endgroup}
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a0
{begingroup}
{endgroup}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a3
{begingroup}
{endgroup}
Path at line 12, before choices:
(139.40959,143){1410.54007,3845.4639}..tension atleast1
..{-4096,0}(129.79404,143){-4096,0}..tension atleast1
..{-4096,0}(107.35808,143){curl 1}
..{curl 1}(107.35808,145){curl 1}
..{curl 1}(142.64323,145){curl 1}
..{curl 1}(139.4096,143){curl 1}
..{curl 1}cycle
Path at line 12, after choices:
(139.40959,143)..controls (139.40959,143) and (133.88062,143)
..(129.79404,143)..controls (122.31538,143) and (114.83673,143)
..(107.35808,143)..controls (107.35808,143.66667) and (107.35808,144.33333)
..(107.35808,145)..controls (119.1198,145) and (130.88152,145)
..(142.64323,145)..controls (141.56535,144.33333) and (140.48749,143.66667)
..(139.4096,143)..controls (139.4096,143) and (139.40959,143)
..cycle
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(-1)<=(0)}
{true}
{fi}
{reverse(path)}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 12, before subdivision into octants:
(139.40959,143)..controls (139.40959,143) and (139.4096,143)
..(139.4096,143)..controls (140.48749,143.66667) and (141.56535,144.33333)
..(142.64323,145)..controls (130.88152,145) and (119.1198,145)
..(107.35808,145)..controls (107.35808,144.33333) and (107.35808,143.66667)
..(107.35808,143)..controls (114.83673,143) and (122.31538,143)
..(129.79404,143)..controls (133.88062,143) and (139.40959,143)
..cycle
Cycle spec at line 12, after subdivision and autorounding:
(142.64323,145) % beginning in octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (130.76216,145) and (118.88107,145)
..(107,145) % segment 2
% entering octant `Sw'
..controls (107,144.33333) and (107,143.66667)
..(107,143) % segment 3
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
..controls (114.55455,143) and (122.1091,143)
..(129.66364,143) % segment 4
..controls (133.79169,143) and (139.37677,143)
..(139.37677,143) % segment 5
..controls (139.37677,143) and (139.37679,143)
..(139.37679,143) % segment 0
..controls (140.4656,143.66667) and (141.55441,144.33333)
..(142.64323,145) % segment 1
& cycle
Tracing edges at line 12: (weight 1)
@ Octant Ne (4 offsets), from (150.64323,139) to (152.64323,146)
@ transition line 5, from (150.64323,139) to (150.64323,139)
@ transition line 4, from (150.64323,139) to (151.64323,140.5)
@ transition line 3, from (151.64323,140.5) to (152.14323,142)
@ transition line 2, from (152.14323,142) to (152.64323,144)
@ transition line 1, from (152.64323,144) to (152.64323,146)
(151,139)(151,140)(152,140)(152,143)(153,143)
@ Octant Nw (4 offsets), from (152.64323,146) to (150.64323,151)
@ transition line 0, from (152.64323,146) to (152.64323,146)
@ transition line 1, from (152.64323,146) to (152.14323,148)
@ transition line 2, from (152.14323,148) to (151.64323,149.5)
@ transition line 3, from (151.64323,149.5) to (150.64323,151)
@ transition line 4, from (150.64323,151) to (150.64323,151)
(153,147)(152,147)(152,150)(151,150)
@ Octant Wn (4 offsets), from (150.64323,151) to (143.64323,155)
@ transition line 5, from (150.64323,151) to (148.64323,153)
@ transition line 4, from (148.64323,153) to (147.14323,154)
@ transition line 3, from (147.14323,154) to (145.64323,154.5)
@ transition line 2, from (145.64323,154.5) to (143.64323,155)
@ transition line 1, from (143.64323,155) to (143.64323,155)
(151,151)(150,151)(150,152)(149,152)(149,153)(148,153)(148,154)(146,154)
@ Octant Ws (4 offsets), from (143.64323,155) to (99,151)
@ transition line 0, from (143.64323,155) to (141.64323,155)
@ transition line 1, from (106,155) to (104,154.5)
@ transition line 2, from (104,154.5) to (102.5,154)
@ transition line 3, from (102.5,154) to (101,153)
@ transition line 4, from (101,153) to (99,151)
(146,155)(104,155)(104,154)(102,154)(102,153)(101,153)(101,152)(100,152)
@ Octant Sw (4 offsets), from (99,151) to (97,142)
@ transition line 5, from (99,151) to (99,151)
@ transition line 4, from (99,151) to (98,149.5)
@ transition line 3, from (98,149.5) to (97.5,148)
@ transition line 2, from (97.5,148) to (97,146)
@ transition line 1, from (97,144) to (97,142)
(100,151)(99,151)(99,150)(98,150)(98,148)(97,148)
@ Octant Se (4 offsets), from (97,142) to (99,137)
@ transition line 0, from (97,142) to (97,142)
@ transition line 1, from (97,142) to (97.5,140)
@ transition line 2, from (97.5,140) to (98,138.5)
@ transition line 3, from (98,138.5) to (99,137)
@ transition line 4, from (99,137) to (99,137)
(97,140)(98,140)(98,138)(99,138)
@ Octant Es (4 offsets), from (99,137) to (106,133)
@ transition line 5, from (99,137) to (101,135)
@ transition line 4, from (101,135) to (102.5,134)
@ transition line 3, from (102.5,134) to (104,133.5)
@ transition line 2, from (104,133.5) to (106,133)
@ transition line 1, from (106,133) to (106,133)
(99,137)(100,137)(100,136)(101,136)(101,135)(102,135)(102,134)(104,134)
@ Octant En (4 offsets), from (106,133) to (150.64323,139)
@ transition line 0, from (106,133) to (108,133)
@ transition line 1, from (140.37679,133) to (142.37679,133.5)
@ transition line 2, from (142.37679,133.5) to (143.87679,134)
@ transition line 3, from (147.14323,136) to (148.64323,137)
@ transition line 4, from (148.64323,137) to (150.64323,139)
(104,133)(142,133)(142,134)(145,134)(145,135)(146,135)(146,136)(148,136)
(148,137)(149,137)(149,138)(150,138)(150,139).
labels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$=(TEXT3):makelabel(SUFFIX
2)(str$,z$);endfor.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-labels
(SUFFIX2)<-
(TEXT3)<-a1,a2
{begingroup}
{if}
{(2)>(1)}
{true}
{forsuffixes}
{loop value=a1}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"a1"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a1
{begingroup}
{endgroup}
(EXPR4)<-(107.35808,143)
{begingroup}
{if}
{known((107.35808,143))}
{true}
{special}
{(" 0")&("a1")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(107.35808,143)
{begingroup}
{((107.35808,143))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((107.35808,143))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(107.35808,143)
{begingroup}
{((107.35808,143))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((107.35808,143))}
{endgroup}
{[repeat the loop]}
{loop value=a2}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"a2"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-a2
{begingroup}
{endgroup}
(EXPR4)<-(139.40959,143)
{begingroup}
{if}
{known((139.40959,143))}
{true}
{special}
{(" 0")&("a2")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(139.40959,143)
{begingroup}
{((139.40959,143))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((139.40959,143))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(139.40959,143)
{begingroup}
{((139.40959,143))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((139.40959,143))}
{endgroup}
{[repeat the loop]}
{fi}
{endgroup}
{endgroup}
serif(SUFFIX2)(SUFFIX3)(SUFFIX4)(EXPR5)(EXPR6)<suffix>->begingroup.pickup.crisp
.nib;numeric.bracket_height;pair.downward;bracket_height=if.str(SUFFIX7)="dark"
:1.5fi.bracket;if.y(SUFFIX2)<y(SUFFIX3):y(SUFFIX4)2=min(y(SUFFIX2)+bracket_heig
ht,y(SUFFIX3));top.y(SUFFIX4)1-slab=bot.y(SUFFIX4)0=tiny.bot.y(SUFFIX2);downwar
d=z(SUFFIX2)-z(SUFFIX3);if.y(SUFFIX4)1>y(SUFFIX4)2:y(SUFFIX4)2:=y(SUFFIX4)1;fi.
else:y(SUFFIX4)2=max(y(SUFFIX2)-bracket_height,y(SUFFIX3));bot.y(SUFFIX4)1+slab
=top.y(SUFFIX4)0=tiny.top.y(SUFFIX2);downward=z(SUFFIX3)-z(SUFFIX2);if.y(SUFFIX
4)1<y(SUFFIX4)2:y(SUFFIX4)2:=y(SUFFIX4)1;fi.fi.if(EXPR6)<0:z(SUFFIX4)2+penoffse
t.downward.of.currentpen=z(SUFFIX2)l+penoffset.downward.of.pen_[tiny.nib]+whate
ver*downward;z(SUFFIX4)3=z(SUFFIX4)2+(epsilon,0);lft.x(SUFFIX4)0=lft.x(SUFFIX4)
1=tiny.lft.x(SUFFIX2)l+(EXPR6);else:z(SUFFIX4)2-penoffset.downward.of.currentpe
n=z(SUFFIX2)r-penoffset.downward.of.pen_[tiny.nib]+whatever*downward;z(SUFFIX4)
3=z(SUFFIX4)2-(epsilon,0);rt.x(SUFFIX4)0=rt.x(SUFFIX4)1=tiny ETC.
(SUFFIX0)<-
(SUFFIX1)<-serif
(SUFFIX2)<-0
(SUFFIX3)<-1
(SUFFIX4)<-b
(EXPR5)<-0.5
(EXPR6)<-21.85675
(SUFFIX7)<-dark
{begingroup}
pickup<secondary>->if.numeric(EXPR0):currentpen:=pen_[(EXPR0)];pen_top:=pen_top
_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt
_[(EXPR0)];currentpen_path:=pen_path_[(EXPR0)];else:currentpen:=(EXPR0)yscaled.
aspect_ratio;pen_top:=(ypart.penoffset.left.of.currentpen)/aspect_ratio;pen_bot
:=(ypart.penoffset.right.of.currentpen)/aspect_ratio;pen_lft:=xpart.penoffset.d
own.of.currentpen;pen_rt:=xpart.penoffset.up.of.currentpen;path.currentpen_path
;fi
(EXPR0)<-2
{if}
{numeric(2)}
{true}
{currentpen:=pen}
{pen_top:=10}
{pen_bot:=-10}
{pen_lft:=-10}
{pen_rt:=10}
{currentpen_path:=unknown path currentpen_path}
{else}
{numeric}
{pair}
{if}
{("dark")=("dark")}
{true}
{fi}
{(1.5)*(0)}
{(bracket_height)=(0)}
## bracket_height=0
{if}
{(145)<(114.00047)}
{false}
max(TEXT2)->begingroup.save.u_;boolean.u_;for.u=(TEXT2):if.boolean.u_:setu_.u;e
lseif.u_<u:u_:=u;fi.endfor.u_.endgroup
(SUFFIX0)<-
(SUFFIX1)<-max
(TEXT2)<-y0-bracket_height,y1
{begingroup}
{save}
{boolean}
{for}
{(145)-(0)}
{loop value=145}
{if}
{boolean(unknown boolean u_)}
{true}
setu_<primary>->if.numeric(EXPR0):numeric.u_.elseif.string(EXPR0):string.u_.els
e:pair.u_.fi;u_=(EXPR0)
(EXPR0)<-145
{if}
{numeric(145)}
{true}
{numeric}
{elseif}
{(u_)=(145)}
## u_=145
{elseif}
{[repeat the loop]}
{loop value=114.00047}
{if}
{boolean(145)}
{false}
{(145)<(114.00047)}
{false}
{[repeat the loop]}
{endgroup}
{(y.b2)=(145)}
## y.b2=145
bot<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_bot)else:pen_bot.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-bot
(EXPR2)<-y.b1
{begingroup}
{if}
{pair(y.b1)}
{false}
{fi}
{(y.b1)+(-10)}
{endgroup}
{(y.b1-10)+(22)}
top<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_top)else:pen_top.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-top
(EXPR2)<-y.b0
{begingroup}
{if}
{pair(y.b0)}
{false}
{fi}
{(y.b0)+(10)}
{endgroup}
tiny.top<primary>->begingroup(EXPR2)+(10)endgroup
(SUFFIX0)<-tiny
(SUFFIX1)<-top
(EXPR2)<-145
{begingroup}
{(145)+(10)}
{endgroup}
{(y.b0+10)=(155)}
## y.b0=145
{(y.b1+12)=(155)}
## y.b1=143
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
{((131.27242,114.00047))-((142.64323,145))}
{((xpart downward,ypart downward))=((-11.37082,-30.99953))}
## ypart downward=-30.99953
## xpart downward=-11.37082
{if}
{(143)<(145)}
{true}
{y.b2:=143}
## y.b2=143
{fi}
{fi}
{if}
{(21.85675)<(0)}
{false}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
{((-11.37082,-30.99953))penoffset(pen)}
{((x.b2,143))-((-9,4.5))}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0r
{begingroup}
{endgroup}
{((-11.37082,-30.99953))penoffset(pen)}
{((145.14325,145))-((-9,4.5))}
whatever->begingroup.save?;?endgroup
(SUFFIX0)<-
(SUFFIX1)<-whatever
{begingroup}
{save}
### -?=-%CAPSULE4701
{endgroup}
{(%CAPSULE4701)*((-11.37082,-30.99953))}
### 30.99953%CAPSULE4701 = -ypart %CAPSULE4699
{((154.14325,140.5))+((0.3668ypart %CAPSULE4699,ypart %CAPSULE4699))}
### -ypart %CAPSULE4699=-ypart %CAPSULE4681+140.5
{((x.b2+9,138.5))=((0.3668ypart %CAPSULE4681+102.607,ypart %CAPSULE4681))}
## ypart %CAPSULE4681=138.5
#### xpart %CAPSULE4681=153.40964
## x.b2=144.40964
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b3
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
{((144.40964,143))-((0.00002,0))}
{((x.b3,y.b3))=((144.40962,143))}
## y.b3=143
## x.b3=144.40962
rt<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_rt,0)else:pen_rt.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-rt
(EXPR2)<-x.b0
{begingroup}
{if}
{pair(x.b0)}
{false}
{fi}
{(x.b0)+(10)}
{endgroup}
rt<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_rt,0)else:pen_rt.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-rt
(EXPR2)<-x.b1
{begingroup}
{if}
{pair(x.b1)}
{false}
{fi}
{(x.b1)+(10)}
{endgroup}
tiny.rt<primary>->begingroup(EXPR2)+(10)endgroup
(SUFFIX0)<-tiny
(SUFFIX1)<-rt
(EXPR2)<-145.14325
{begingroup}
{(145.14325)+(10)}
{endgroup}
{(155.14325)+(21.85675)}
{(x.b1+10)=(177)}
## x.b1=167
{(x.b0+10)=(177)}
## x.b0=167
{fi}
{pair}
{ypart((xpart corner,ypart corner))}
{(ypart corner)=(143)}
## ypart corner=143
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
whatever->begingroup.save?;?endgroup
(SUFFIX0)<-
(SUFFIX1)<-whatever
{begingroup}
{save}
### -?=-%CAPSULE4675
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
{((142.64323,145))-((131.27242,114.00047))}
{(%CAPSULE4675)*((11.37082,30.99953))}
### -30.99953%CAPSULE4675 = -ypart %CAPSULE4663
{((144.40964,143))+((0.3668ypart %CAPSULE4663,ypart %CAPSULE4663))}
### -ypart %CAPSULE4663=-ypart %CAPSULE4645+143
{((xpart corner,143))=((0.3668ypart %CAPSULE4645+91.95638,ypart %CAPSULE4645))}
## ypart %CAPSULE4645=143
#### xpart %CAPSULE4645=144.40964
## xpart corner=144.40964
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
{((142.64323,145))-((131.27242,114.00047))}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
{((144.40964,143))-((167,143))}
{(0.5)*((-22.59036,0))}
{((167,143))+((-11.29518,0))}
{((155.70482,143))-((144.40964,143))}
{(0.5)*((11.29518,0))}
{((144.40964,143))+((5.6476,0))}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b1
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
{((167,143))-((144.40964,143))}
...->..tension.atleast1..
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b1
{begingroup}
{endgroup}
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b0
{begingroup}
{endgroup}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b3
{begingroup}
{endgroup}
Path at line 12, before choices:
(144.40964,143){1410.54007,3845.4639}..tension atleast1
..{4096,0}(150.05724,143){4096,0}..tension atleast1
..{4096,0}(167,143){curl 1}
..{curl 1}(167,145){curl 1}
..{curl 1}(142.64323,145){curl 1}
..{curl 1}(144.40962,143){curl 1}
..{curl 1}cycle
Path at line 12, after choices:
(144.40964,143)..controls (144.40964,143) and (147.9602,143)
..(150.05724,143)..controls (155.70482,143) and (161.35242,143)
..(167,143)..controls (167,143.66667) and (167,144.33333)
..(167,145)..controls (158.88107,145) and (150.76216,145)
..(142.64323,145)..controls (143.23203,144.33333) and (143.82083,143.66667)
..(144.40962,143)..controls (144.40962,143) and (144.40964,143)
..cycle
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 12, before subdivision into octants:
(144.40964,143)..controls (144.40964,143) and (147.9602,143)
..(150.05724,143)..controls (155.70482,143) and (161.35242,143)
..(167,143)..controls (167,143.66667) and (167,144.33333)
..(167,145)..controls (158.88107,145) and (150.76216,145)
..(142.64323,145)..controls (143.23203,144.33333) and (143.82083,143.66667)
..(144.40962,143)..controls (144.40962,143) and (144.40964,143)
..cycle
Cycle spec at line 12, after subdivision and autorounding:
(167,143) % beginning in octant `Ne'
..controls (167,143.66667) and (167,144.33333)
..(167,145) % segment 2
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (158.88107,145) and (150.76216,145)
..(142.64323,145) % segment 3
% entering octant `Sw'
% entering octant `Se'
..controls (143.23203,144.33333) and (143.82083,143.66667)
..(144.40962,143) % segment 4
% entering octant `Es'
% entering octant `En'
..controls (144.40962,143) and (144.40964,143)
..(144.40964,143) % segment 5
..controls (144.40964,143) and (147.9602,143)
..(150.05724,143) % segment 0
..controls (155.70482,143) and (161.35242,143)
..(167,143) % segment 1
& cycle
Tracing edges at line 12: (weight 1)
@ Octant Ne (4 offsets), from (175,137) to (177,146)
@ transition line 5, from (175,137) to (175,137)
@ transition line 4, from (175,137) to (176,138.5)
@ transition line 3, from (176,138.5) to (176.5,140)
@ transition line 2, from (176.5,140) to (177,142)
@ transition line 1, from (177,144) to (177,146)
(175,137)(175,138)(176,138)(176,140)(177,140)
@ Octant Nw (4 offsets), from (177,146) to (175,151)
@ transition line 0, from (177,146) to (177,146)
@ transition line 1, from (177,146) to (176.5,148)
@ transition line 2, from (176.5,148) to (176,149.5)
@ transition line 3, from (176,149.5) to (175,151)
@ transition line 4, from (175,151) to (175,151)
(177,148)(176,148)(176,150)(175,150)
@ Octant Wn (4 offsets), from (175,151) to (168,155)
@ transition line 5, from (175,151) to (173,153)
@ transition line 4, from (173,153) to (171.5,154)
@ transition line 3, from (171.5,154) to (170,154.5)
@ transition line 2, from (170,154.5) to (168,155)
@ transition line 1, from (168,155) to (168,155)
(175,152)(174,152)(174,153)(172,153)(172,154)(170,154)
@ Octant Ws (4 offsets), from (168,155) to (134.64323,151)
@ transition line 0, from (168,155) to (166,155)
@ transition line 1, from (141.64323,155) to (139.64323,154.5)
@ transition line 2, from (139.64323,154.5) to (138.14323,154)
@ transition line 3, from (138.14323,154) to (136.64323,153)
@ transition line 4, from (136.64323,153) to (134.64323,151)
(170,155)(140,155)(140,154)(137,154)(137,153)(136,153)(136,152)(135,152)
@ Octant Sw (4 offsets), from (134.64323,151) to (132.64323,144)
@ transition line 5, from (134.64323,151) to (134.64323,151)
@ transition line 4, from (134.64323,151) to (133.64323,149.5)
@ transition line 3, from (133.64323,149.5) to (133.14323,148)
@ transition line 2, from (133.14323,148) to (132.64323,146)
@ transition line 1, from (132.64323,146) to (132.64323,144)
(135,151)(134,151)(134,149)(133,149)
@ Octant Se (4 offsets), from (132.64323,144) to (136.40962,137)
@ transition line 0, from (132.64323,144) to (132.64323,144)
@ transition line 1, from (132.64323,144) to (133.14323,142)
@ transition line 2, from (133.14323,142) to (133.64323,140.5)
@ transition line 3, from (133.64323,140.5) to (134.64323,139)
@ transition line 4, from (136.40962,137) to (136.40962,137)
(133,141)(134,141)(134,139)(135,139)(135,138)(136,138)
@ Octant Es (4 offsets), from (136.40962,137) to (143.40962,133)
@ transition line 5, from (136.40962,137) to (138.40962,135)
@ transition line 4, from (138.40962,135) to (139.90962,134)
@ transition line 3, from (139.90962,134) to (141.40962,133.5)
@ transition line 2, from (141.40962,133.5) to (143.40962,133)
@ transition line 1, from (143.40962,133) to (143.40962,133)
(136,137)(137,137)(137,136)(138,136)(138,135)(139,135)(139,134)(141,134)
@ Octant En (4 offsets), from (143.40962,133) to (175,137)
@ transition line 0, from (143.40962,133) to (145.40962,133)
@ transition line 1, from (168,133) to (170,133.5)
@ transition line 2, from (170,133.5) to (171.5,134)
@ transition line 3, from (171.5,134) to (173,135)
@ transition line 4, from (173,135) to (175,137)
(141,133)(170,133)(170,134)(172,134)(172,135)(174,135)(174,136)(175,136)
(175,137).
labels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$=(TEXT3):makelabel(SUFFIX
2)(str$,z$);endfor.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-labels
(SUFFIX2)<-
(TEXT3)<-b1,b2
{begingroup}
{if}
{(2)>(1)}
{true}
{forsuffixes}
{loop value=b1}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"b1"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b1
{begingroup}
{endgroup}
(EXPR4)<-(167,143)
{begingroup}
{if}
{known((167,143))}
{true}
{special}
{(" 0")&("b1")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(167,143)
{begingroup}
{((167,143))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((167,143))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(167,143)
{begingroup}
{((167,143))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((167,143))}
{endgroup}
{[repeat the loop]}
{loop value=b2}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"b2"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-b2
{begingroup}
{endgroup}
(EXPR4)<-(144.40964,143)
{begingroup}
{if}
{known((144.40964,143))}
{true}
{special}
{(" 0")&("b2")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(144.40964,143)
{begingroup}
{((144.40964,143))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((144.40964,143))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(144.40964,143)
{begingroup}
{((144.40964,143))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((144.40964,143))}
{endgroup}
{[repeat the loop]}
{fi}
{endgroup}
{endgroup}
{if}
{(0)>(0)}
{false}
pickup<secondary>->if.numeric(EXPR0):currentpen:=pen_[(EXPR0)];pen_top:=pen_top
_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt
_[(EXPR0)];currentpen_path:=pen_path_[(EXPR0)];else:currentpen:=(EXPR0)yscaled.
aspect_ratio;pen_top:=(ypart.penoffset.left.of.currentpen)/aspect_ratio;pen_bot
:=(ypart.penoffset.right.of.currentpen)/aspect_ratio;pen_lft:=xpart.penoffset.d
own.of.currentpen;pen_rt:=xpart.penoffset.up.of.currentpen;path.currentpen_path
;fi
(EXPR0)<-3
{if}
{numeric(3)}
{true}
{currentpen:=pen}
{pen_top:=10}
{pen_bot:=-10}
{pen_lft:=-10}
{pen_rt:=10}
{currentpen_path:=unknown path pen_path_3}
{else}
{else}
{numeric}
{(2)*(22)}
{(220)-(44)}
{(176)-(22)}
{(10.5)*(13.5)}
{(154)/(141.75)}
{(slope)=(1.08643)}
## slope=1.08643
angle<primary>->begingroup.if.pair(EXPR2):let.angle=ANGLE;else:vardef.angle.pri
mary.D=right.rotated.D.enddef;MFupgrade("angle","dir");fi.angle(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-angle
{-(1.08643)}
(EXPR2)<-(-1.08643,1)
{begingroup}
{if}
{pair((-1.08643,1))}
{true}
{let}
{else}
{angle((-1.08643,1))}
{endgroup}
{(theta)=(137.37201)}
## theta=137.37201
{if}
{true}
{else}
{(reduced_hair)=(22)}
## reduced_hair=22
lft<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_lft,0)else:pen_lft.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-lft
(EXPR2)<-x3r
{begingroup}
{if}
{pair(x3r)}
{false}
{fi}
{(x3r)+(-10)}
{endgroup}
round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-round
{(0.75)*(13.5)}
(EXPR2)<-10.125
{begingroup}
{if}
{numeric(10.125)}
{true}
{(10.125)+(0.5)}
{elseif}
{floor(10.625)}
{endgroup}
{(x3r-10)=(10)}
## x3r=20
{(x7l)-(20)}
{(0.5)*(x7l-20)}
{(20)+(0.5x7l-10)}
{(x5)=(0.5x7l+10)}
## x5=0.5x7l+10
lft<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_lft,0)else:pen_lft.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-lft
(EXPR2)<-x7r
{begingroup}
{if}
{pair(x7r)}
{false}
{fi}
{(x7r)+(-10)}
{endgroup}
round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-round
{(189)-(13.5)}
{(0.5)*(175.5)}
(EXPR2)<-87.75
{begingroup}
{if}
{numeric(87.75)}
{true}
{(87.75)+(0.5)}
{elseif}
{floor(88.25)}
{endgroup}
{(x7r-10)=(88)}
## x7r=98
{(x3l)-(20)}
{(25)-(19.99995)}
{(x3l-20)=(5.00005)}
## x3l=25.00005
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-7
{(22)-(19.99995)}
(EXPR3)<-2.00005
(EXPR4)<-180
{begingroup}
{if}
{known(2.00005)}
{true}
{if}
{(2.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
{((98,y7r))-((x7l,y7l))}
{((2.00005,0))rotated(180)}
{((-x7l+98,linearform))=((-2.00005,0))}
## y7r=y7l
## x7l=100.00005
#### x5=60.00003
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
{((98,y7l))-((100.00005,y7l))}
{(0.5)*((-2.00005,0))}
{((100.00005,y7l))+((-1.00003,0))}
{((x7,y7))=((99.00002,y7l))}
## y7=y7l
## x7=99.00002
{endgroup}
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-5
{(22)-(19.99995)}
(EXPR3)<-2.00005
(EXPR4)<-137.37201
{begingroup}
{if}
{known(2.00005)}
{true}
{if}
{(2.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}
{((x5r,y5r))-((x5l,y5l))}
{((2.00005,0))rotated(137.37201)}
{((linearform,linearform))=((-1.47156,1.35449))}
## y5r=y5l+1.35449
## x5r=x5l-1.47156
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}
{((x5l-1.47156,y5l+1.35449))-((x5l,y5l))}
{(0.5)*((-1.47156,1.35449))}
{((x5l,y5l))+((-0.73578,0.67725))}
{((60.00003,y5))=((x5l-0.73578,y5l+0.67725))}
## y5=y5l+0.67725
## x5l=60.73581
#### xpart %CAPSULE4378=60.00003
#### x5r=59.26425
{endgroup}
{(0.5)*(220)}
{(y5l+0.67725)=(110)}
## y5l=109.32275
#### y5=110
#### y5r=110.67725
ellipse_set(SUFFIX0)(SUFFIX1)(SUFFIX2)(SUFFIX3)->alpha_:=slope*(x(SUFFIX1)-x(SU
FFIX0));beta_:=y(SUFFIX3)-y(SUFFIX0)-slope*(x(SUFFIX3)-x(SUFFIX0));gamma_:=alph
a_/beta_;y(SUFFIX1)-y(SUFFIX0)=0.5(beta_-alpha_*gamma_);x(SUFFIX2)-x(SUFFIX0)=-
2gamma_*(x(SUFFIX1)-x(SUFFIX0))/(1+gamma_*gamma_);y(SUFFIX2)-y(SUFFIX3)=slope*(
x(SUFFIX2)-x(SUFFIX3))
(SUFFIX0)<-2l
(SUFFIX1)<-3l
(SUFFIX2)<-4l
(SUFFIX3)<-5l
{(25.00005)-(54)}
{(1.08643)*(-28.99995)}
{alpha_:=-31.5063}
## alpha_=-31.5063
{(109.32275)-(8.00003)}
{(60.73581)-(54)}
{(1.08643)*(6.73581)}
{(101.32272)-(7.31796)}
{beta_:=94.00476}
## beta_=94.00476
{(-31.5063)/(94.00476)}
{gamma_:=-0.33516}
## gamma_=-0.33516
{(y3l)-(8.00003)}
{(-31.5063)*(-0.33516)}
{(94.00476)-(10.55963)}
{(0.5)*(83.44513)}
{(y3l-8.00003)=(41.72256)}
## y3l=49.7226
{(x4l)-(54)}
{(2)*(-0.33516)}
{-(-0.67032)}
{(25.00005)-(54)}
{(0.67032)*(-28.99995)}
{(-0.33516)*(-0.33516)}
{(1)+(0.11234)}
{(-19.43921)/(1.11234)}
{(x4l-54)=(-17.47603)}
## x4l=36.52397
{(y4l)-(109.32275)}
{(36.52397)-(60.73581)}
{(1.08643)*(-24.21184)}
{(y4l-109.32275)=(-26.30437)}
## y4l=83.01839
ellipse_set(SUFFIX0)(SUFFIX1)(SUFFIX2)(SUFFIX3)->alpha_:=slope*(x(SUFFIX1)-x(SU
FFIX0));beta_:=y(SUFFIX3)-y(SUFFIX0)-slope*(x(SUFFIX3)-x(SUFFIX0));gamma_:=alph
a_/beta_;y(SUFFIX1)-y(SUFFIX0)=0.5(beta_-alpha_*gamma_);x(SUFFIX2)-x(SUFFIX0)=-
2gamma_*(x(SUFFIX1)-x(SUFFIX0))/(1+gamma_*gamma_);y(SUFFIX2)-y(SUFFIX3)=slope*(
x(SUFFIX2)-x(SUFFIX3))
(SUFFIX0)<-2r
(SUFFIX1)<-3r
(SUFFIX2)<-4r
(SUFFIX3)<-5r
{(20)-(54)}
{(1.08643)*(-34)}
{alpha_:=-36.93848}
## alpha_=-36.93848
{(110.67725)-(5.99998)}
{(59.26425)-(54)}
{(1.08643)*(5.26425)}
{(104.67726)-(5.71922)}
{beta_:=98.95804}
## beta_=98.95804
{(-36.93848)/(98.95804)}
{gamma_:=-0.37328}
## gamma_=-0.37328
{(y3r)-(5.99998)}
{(-36.93848)*(-0.37328)}
{(98.95804)-(13.78824)}
{(0.5)*(85.1698)}
{(y3r-5.99998)=(42.5849)}
## y3r=48.58488
{(x4r)-(54)}
{(2)*(-0.37328)}
{-(-0.74655)}
{(20)-(54)}
{(0.74655)*(-34)}
{(-0.37328)*(-0.37328)}
{(1)+(0.13933)}
{(-25.38275)/(1.13933)}
{(x4r-54)=(-22.2787)}
## x4r=31.7213
{(y4r)-(110.67725)}
{(31.7213)-(59.26425)}
{(1.08643)*(-27.54295)}
{(y4r-110.67725)=(-29.92337)}
## y4r=80.75388
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-8
{(22)-(19.99995)}
(EXPR3)<-2.00005
(EXPR4)<-270
{begingroup}
{if}
{known(2.00005)}
{true}
{if}
{(2.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8l
{begingroup}
{endgroup}
{((x8r,y8r))-((x8l,y8l))}
{((2.00005,0))rotated(270)}
{((linearform,linearform))=((0,-2.00005))}
## y8r=y8l-2.00005
## x8r=x8l
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8r
{begingroup}
{endgroup}
{((x8l,y8l-2.00005))-((x8l,y8l))}
{(0.5)*((0,-2.00005))}
{((x8l,y8l))+((0,-1.00003))}
{((x8,y8))=((x8l,y8l-1.00003))}
## y8=y8l-1.00003
## x8=x8l
{endgroup}
top<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_top)else:pen_top.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-top
(EXPR2)<-y8l
{begingroup}
{if}
{pair(y8l)}
{false}
{fi}
{(y8l)+(10)}
{endgroup}
{(220)+(4.00002)}
{(y8l+10)=(224.00002)}
## y8l=214.00002
#### y8=212.99998
#### y8r=211.99997
{(x9r)-(98)}
{(0.45)*(x9r-98)}
{(98)+(0.45x9r-44.0997)}
{(x8l)=(0.45x9r+53.9003)}
## x8l=0.45x9r+53.9003
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-9
{(20)-(19.99995)}
(EXPR3)<-0.00005
(EXPR4)<-30
{begingroup}
{if}
{known(0.00005)}
{true}
{if}
{(0.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9l
{begingroup}
{endgroup}
{((x9r,y9r))-((x9l,y9l))}
{((0.00005,0))rotated(30)}
{((linearform,linearform))=((0.00005,0.00003))}
## y9r=y9l+0.00003
## x9r=x9l+0.00005
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9r
{begingroup}
{endgroup}
{((x9l+0.00005,y9l+0.00003))-((x9l,y9l))}
{(0.5)*((0.00005,0.00003))}
{((x9l,y9l))+((0.00003,0.00002))}
{((x9,y9))=((x9l+0.00003,y9l+0.00002))}
## y9=y9l+0.00002
## x9=x9l+0.00003
{endgroup}
round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-round
{(4)*(13.5)}
{(x9l)+(54)}
{(x9l+54)-(x9l+0.00003)}
(EXPR2)<-53.99997
{begingroup}
{if}
{numeric(53.99997)}
{true}
{(53.99997)+(0.5)}
{elseif}
{floor(54.49997)}
{endgroup}
{(x9l)=(54)}
## x9l=54
#### x9=54.00003
#### x9r=54.00005
#### x8l=78.20015
#### x8=78.20015
#### x8r=78.20015
{(y9l+0.00003)=(y7l)}
## y7l=y9l+0.00003
ellipse_set(SUFFIX0)(SUFFIX1)(SUFFIX2)(SUFFIX3)->alpha_:=slope*(x(SUFFIX1)-x(SU
FFIX0));beta_:=y(SUFFIX3)-y(SUFFIX0)-slope*(x(SUFFIX3)-x(SUFFIX0));gamma_:=alph
a_/beta_;y(SUFFIX1)-y(SUFFIX0)=0.5(beta_-alpha_*gamma_);x(SUFFIX2)-x(SUFFIX0)=-
2gamma_*(x(SUFFIX1)-x(SUFFIX0))/(1+gamma_*gamma_);y(SUFFIX2)-y(SUFFIX3)=slope*(
x(SUFFIX2)-x(SUFFIX3))
(SUFFIX0)<-8l
(SUFFIX1)<-7l
(SUFFIX2)<-5'
(SUFFIX3)<-5l
{(100.00005)-(78.20015)}
{(1.08643)*(21.7999)}
{alpha_:=23.68398}
## alpha_=23.68398
{(109.32275)-(214.00002)}
{(60.73581)-(78.20015)}
{(1.08643)*(-17.46434)}
{(-104.67726)-(-18.97371)}
{beta_:=-85.70355}
## beta_=-85.70355
{(23.68398)/(-85.70355)}
{gamma_:=-0.27635}
## gamma_=-0.27635
{(y9l+0.00003)-(214.00002)}
{(23.68398)*(-0.27635)}
{(-85.70355)-(-6.5451)}
{(0.5)*(-79.15845)}
{(y9l-213.99998)=(-39.57922)}
## y9l=174.42076
#### y7l=174.42079
#### y9=174.42078
#### y9r=174.42079
#### y7=174.42079
#### y7r=174.42079
{(x5')-(78.20015)}
{(2)*(-0.27635)}
{-(-0.5527)}
{(100.00005)-(78.20015)}
{(0.5527)*(21.7999)}
{(-0.27635)*(-0.27635)}
{(1)+(0.07637)}
{(12.04889)/(1.07637)}
{(x5'-78.20015)=(11.194)}
## x5'=89.39415
{(y5')-(109.32275)}
{(89.39415)-(60.73581)}
{(1.08643)*(28.65834)}
{(y5'-109.32275)=(31.13516)}
## y5'=140.45792
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z2e{left}...z3e{up}...z4e---z5e...{up}z7e...z8e{left}...z9e{down}
{begingroup}
{forsuffixes}
{loop value=l}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3l
{begingroup}
{endgroup}
...->..tension.atleast1..
---->..tension.infinity..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9l
{begingroup}
{endgroup}
Path at line 27, before choices:
(54,8.00003){-4096,0}..tension atleast1
..{0,4096}(25.00005,49.7226){0,4096}..tension atleast1
..(36.52397,83.01839)..tension 4095.99998
..(60.73581,109.32275)..tension atleast1
..{0,4096}(100.00005,174.42079){0,4096}..tension atleast1
..{-4096,0}(78.20015,214.00002){-4096,0}..tension atleast1
..{0,-4096}(54,174.42076)
Path at line 27, after choices:
(54,8.00003)..controls (35.14044,8.00003) and (25.00005,28.67296)
..(25.00005,49.7226)..controls (25.00005,61.89423) and (28.29012,74.07292)
..(36.52397,83.01839)..controls (36.52594,83.02052) and (60.73384,109.32062)
..(60.73581,109.32275)..controls (78.62679,128.75996) and (100.00005,151.98044
)
..(100.00005,174.42079)..controls (100.00005,193.63445) and (94.79306,214.0000
2)
..(78.20015,214.00002)..controls (61.12679,214.00002) and (54,193.94754)
..(54,174.42076)
{path_.l:=path}
{[repeat the loop]}
{loop value=r}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3r
{begingroup}
{endgroup}
...->..tension.atleast1..
---->..tension.infinity..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9r
{begingroup}
{endgroup}
Path at line 27, before choices:
(54,5.99998){-4096,0}..tension atleast1
..{0,4096}(20,48.58488){0,4096}..tension atleast1
..(31.7213,80.75388)..tension 4095.99998
..(59.26425,110.67725)..tension atleast1
..{0,4096}(98,174.42079){0,4096}..tension atleast1
..{-4096,0}(78.20015,211.99997){-4096,0}..tension atleast1
..{0,-4096}(54.00005,174.42079)
Path at line 27, after choices:
(54,5.99998)..controls (33.4547,5.99998) and (20,26.47566)
..(20,48.58488)..controls (20,60.40707) and (23.7203,72.06139)
..(31.7213,80.75388)..controls (31.72354,80.75632) and (59.26201,110.6748)
..(59.26425,110.67725)..controls (76.82095,129.7513) and (98,152.76076)
..(98,174.42079)..controls (98,192.54637) and (93.80351,211.99997)
..(78.20015,211.99997)..controls (61.70607,211.99997) and (54.00005,193.122)
..(54.00005,174.42079)
{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
{reverse(path)}
Path at line 27, before choices:
(54,8.00003)..controls (35.14044,8.00003) and (25.00005,28.67296)
..(25.00005,49.7226)..controls (25.00005,61.89423) and (28.29012,74.07292)
..(36.52397,83.01839)..controls (36.52594,83.02052) and (60.73384,109.32062)
..(60.73581,109.32275)..controls (78.62679,128.75996) and (100.00005,151.98044
)
..(100.00005,174.42079)..controls (100.00005,193.63445) and (94.79306,214.0000
2)
..(78.20015,214.00002)..controls (61.12679,214.00002) and (54,193.94754)
..(54,174.42076){curl 1}
..{curl 1}(54.00005,174.42079)..controls (54.00005,193.122) and (61.70607,211.
99997)
..(78.20015,211.99997)..controls (93.80351,211.99997) and (98,192.54637)
..(98,174.42079)..controls (98,152.76076) and (76.82095,129.7513)
..(59.26425,110.67725)..controls (59.26201,110.6748) and (31.72354,80.75632)
..(31.7213,80.75388)..controls (23.7203,72.06139) and (20,60.40707)
..(20,48.58488)..controls (20,26.47566) and (33.4547,5.99998)
..(54,5.99998){curl 1}
..{curl 1}cycle
Path at line 27, after choices:
(54,8.00003)..controls (35.14044,8.00003) and (25.00005,28.67296)
..(25.00005,49.7226)..controls (25.00005,61.89423) and (28.29012,74.07292)
..(36.52397,83.01839)..controls (36.52594,83.02052) and (60.73384,109.32062)
..(60.73581,109.32275)..controls (78.62679,128.75996) and (100.00005,151.98044
)
..(100.00005,174.42079)..controls (100.00005,193.63445) and (94.79306,214.0000
2)
..(78.20015,214.00002)..controls (61.12679,214.00002) and (54,193.94754)
..(54,174.42076)..controls (54.00002,174.42078) and (54.00003,174.42078)
..(54.00005,174.42079)..controls (54.00005,193.122) and (61.70607,211.99997)
..(78.20015,211.99997)..controls (93.80351,211.99997) and (98,192.54637)
..(98,174.42079)..controls (98,152.76076) and (76.82095,129.7513)
..(59.26425,110.67725)..controls (59.26201,110.6748) and (31.72354,80.75632)
..(31.7213,80.75388)..controls (23.7203,72.06139) and (20,60.40707)
..(20,48.58488)..controls (20,26.47566) and (33.4547,5.99998)
..(54,5.99998)..controls (54,6.66667) and (54,7.33334)
..cycle
{endgroup}
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 27, before subdivision into octants:
(54,8.00003)..controls (35.14044,8.00003) and (25.00005,28.67296)
..(25.00005,49.7226)..controls (25.00005,61.89423) and (28.29012,74.07292)
..(36.52397,83.01839)..controls (36.52594,83.02052) and (60.73384,109.32062)
..(60.73581,109.32275)..controls (78.62679,128.75996) and (100.00005,151.98044
)
..(100.00005,174.42079)..controls (100.00005,193.63445) and (94.79306,214.0000
2)
..(78.20015,214.00002)..controls (61.12679,214.00002) and (54,193.94754)
..(54,174.42076)..controls (54.00002,174.42078) and (54.00003,174.42078)
..(54.00005,174.42079)..controls (54.00005,193.122) and (61.70607,211.99997)
..(78.20015,211.99997)..controls (93.80351,211.99997) and (98,192.54637)
..(98,174.42079)..controls (98,152.76076) and (76.82095,129.7513)
..(59.26425,110.67725)..controls (59.26201,110.6748) and (31.72354,80.75632)
..(31.7213,80.75388)..controls (23.7203,72.06139) and (20,60.40707)
..(20,48.58488)..controls (20,26.47566) and (33.4547,5.99998)
..(54,5.99998)..controls (54,6.66667) and (54,7.33334)
..cycle
Cycle spec at line 27, after subdivision and autorounding:
(54,8.00005) % beginning in octant `Wn'
..controls (47.37512,8.00005) and (41.71231,10.78767)
..(37.13101,15.36897) % segment 0
% entering octant `Nw'
..controls (29.16768,23.3323) and (25,36.50919)
..(25,49.72261) % segment 0
% entering octant `Ne'
..controls (25,61.89423) and (28.29007,74.07292)
..(36.52393,83.01839) % segment 1
..controls (36.5259,83.02052) and (60.7338,109.32062)
..(60.73576,109.32275) % segment 2
..controls (78.62674,128.75996) and (100,151.98044)
..(100,174.42078) % segment 3
% entering octant `Nw'
..controls (100,187.95938) and (97.47894,202.02104)
..(90.34491,209.15508) % segment 4
% entering octant `Wn'
..controls (87.30627,212.19371) and (83.32457,214)
..(78.20012,214) % segment 4
% entering octant `Ws'
..controls (72.80653,214) and (68.34541,211.84541)
..(64.7514,208.2514) % segment 5
% entering octant `Sw'
..controls (57.29022,200.79022) and (54,187.24774)
..(54,174) % segment 5
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
..controls (54.00002,174.00002) and (54.00003,174.00002)
..(54.00005,174.00003) % segment 6
% entering octant `Ne'
..controls (54.00005,186.38309) and (57.42493,198.92494)
..(64.59337,206.09338) % segment 7
% entering octant `En'
..controls (68.279,209.77902) and (72.8146,212)
..(78.20015,212) % segment 7
% entering octant `Es'
..controls (82.62454,212) and (86.18253,210.31747)
..(89.02403,207.47597) % segment 8
% entering octant `Se'
..controls (95.87183,200.62817) and (98,187.1757)
..(98,174.42082) % segment 8
% entering octant `Sw'
..controls (98,152.76079) and (76.82095,129.75133)
..(59.26425,110.67728) % segment 9
..controls (59.26201,110.67484) and (31.72354,80.75633)
..(31.7213,80.75389) % segment 10
..controls (23.7203,72.0614) and (20,60.40709)
..(20,48.5849) % segment 11
% entering octant `Se'
..controls (20,35.3899) and (24.6202,22.8798)
..(32.5731,14.9269) % segment 12
% entering octant `Es'
..controls (38.09529,9.40471) and (45.37181,6)
..(54,6) % segment 12
% entering octant `En'
% entering octant `Ne'
..controls (54,6.66669) and (54,7.33336)
..(54,8.00005) % segment 13
% entering octant `Nw'
& cycle
Tracing edges at line 27: (weight 1)
@ Octant Wn (4 offsets), from (62,14.00005) to (45.13101,21.36897)
@ transition line 5, from (62,14.00005) to (60,16.00005)
@ transition line 4, from (60,16.00005) to (58.5,17.00005)
@ transition line 3, from (58.5,17.00005) to (57,17.50005)
@ transition line 2, from (57,17.50005) to (55,18.00005)
@ transition line 1, from (49.54489,18.6633) to (51.54489,18.1633)
@ transition line 2, from (49.92314,18.63565) to (51.42314,18.13565)
@ transition line 3, from (45.86339,20.87555) to (47.36339,19.87555)
@ transition line 4, from (43.13101,23.36897) to (41.63101,24.36897)
@ transition line 3, from (41.63101,24.36897) to (40.13101,24.86897)
@ transition line 2, from (40.13101,24.86897) to (38.13101,25.36897)
@ transition line 1, from (38.13101,25.36897) to (38.13101,25.36897)
(62,14)(62,15)(61,15)(61,16)(59,16)(59,17)(57,17)(57,18)(50,18)(50,19)
(48,19)(48,20)(46,20)(46,21)(45,21)(45,22)(44,22)(44,23)(43,23)(43,24)
(41,24)
@ retrograde line from (38.13101,25.36897) to (45.13101,21.36897)
(41,25)(40,25)(40,24)(41,24)(41,23)(43,23)(43,22)(45,22)
@ Octant Nw (4 offsets), from (45.13101,21.36897) to (35,50.72261)
@ retrograde line from (45.13101,21.36897) to (47.13101,16.36897)
(45,20)(46,20)(46,18)(47,18)
@ transition line 0, from (47.13101,16.36897) to (47.13101,16.36897)
@ transition line 1, from (47.13101,16.36897) to (46.63101,18.36897)
@ transition line 2, from (46.63101,18.36897) to (46.13101,19.86897)
@ transition line 3, from (46.13101,19.86897) to (45.13101,21.36897)
@ transition line 4, from (41.00189,26.44264) to (42.00189,24.94264)
@ transition line 3, from (36.93747,35.49638) to (37.43747,33.99638)
@ transition line 2, from (36.28072,37.97649) to (36.78072,35.97649)
@ transition line 1, from (35,50.72261) to (34.5,52.72261)
@ transition line 2, from (34.5,52.72261) to (34,54.22261)
@ transition line 3, from (34,54.22261) to (33,55.72261)
@ transition line 4, from (33,55.72261) to (33,55.72261)
(47,16)(47,19)(46,19)(46,21)(45,21)(45,22)(44,22)(44,23)(43,23)(43,24)
(42,24)(42,26)(41,26)(41,27)(40,27)(40,29)(39,29)(39,31)(38,31)(38,34)
(37,34)(37,37)(36,37)(36,43)(35,43)(35,53)(34,53)(34,55)(33,55)
@ retrograde line from (33,55.72261) to (35,50.72261)
(33,56)(33,54)(34,54)(34,52)(35,52)
@ Octant Ne (4 offsets), from (35,50.72261) to (110,175.42078)
@ retrograde line from (35,50.72261) to (33,43.72261)
(35,49)(34,49)(34,45)(33,45)
@ transition line 5, from (33,43.72261) to (33,43.72261)
@ transition line 4, from (33,43.72261) to (34,45.22261)
@ transition line 3, from (34,45.22261) to (34.5,46.72261)
@ transition line 2, from (34.5,46.72261) to (35,48.72261)
@ transition line 1, from (36.70348,63.19841) to (36.20348,61.19841)
@ transition line 2, from (37.27774,64.89429) to (36.77774,63.39429)
@ transition line 3, from (41.79636,73.76878) to (40.79636,72.26878)
@ transition line 4, from (96.04604,136.17763) to (97.04604,137.67763)
@ transition line 3, from (106.6559,156.46487) to (107.1559,157.96487)
@ transition line 2, from (108.24344,161.68687) to (108.74344,163.68687)
@ transition line 1, from (110,173.42078) to (110,175.42078)
(33,44)(34,44)(34,47)(35,47)(35,57)(36,57)(36,62)(37,62)(37,65)(38,65)
(38,68)(39,68)(39,70)(40,70)(40,72)(41,72)(41,73)(42,73)(42,75)(43,75)
(43,76)(44,76)(44,77)(45,77)(45,78)(46,78)(46,79)(47,79)(47,80)(48,80)
(48,81)(49,81)(49,82)(50,82)(50,84)(51,84)(51,85)(52,85)(52,86)(53,86)
(53,87)(54,87)(54,88)(55,88)(55,89)(56,89)(56,90)(57,90)(57,91)(58,91)
(58,92)(59,92)(59,93)(60,93)(60,94)(61,94)(61,95)(62,95)(62,97)(63,97)
(63,98)(64,98)(64,99)(65,99)(65,100)(66,100)(66,101)(67,101)(67,102)
(68,102)(68,103)(69,103)(69,104)(70,104)(70,105)(71,105)(71,106)(72,106)
(72,107)(73,107)(73,109)(74,109)(74,110)(75,110)(75,111)(76,111)(76,112)
(77,112)(77,113)(78,113)(78,114)(79,114)(79,115)(80,115)(80,116)(81,116)
(81,117)(82,117)(82,119)(83,119)(83,120)(84,120)(84,121)(85,121)(85,122)
(86,122)(86,123)(87,123)(87,125)(88,125)(88,126)(89,126)(89,127)(90,127)
(90,128)(91,128)(91,130)(92,130)(92,131)(93,131)(93,132)(94,132)(94,134)
(95,134)(95,135)(96,135)(96,137)(97,137)(97,138)(98,138)(98,140)(99,140)
(99,142)(100,142)(100,143)(101,143)(101,145)(102,145)(102,147)(103,147)
(103,149)(104,149)(104,151)(105,151)(105,153)(106,153)(106,156)(107,156)
(107,159)(108,159)(108,163)(109,163)(109,167)(110,167)
@ Octant Nw (4 offsets), from (110,175.42078) to (98.34491,215.15508)
@ transition line 0, from (110,175.42078) to (110,175.42078)
@ transition line 1, from (107.84174,195.21356) to (107.34174,197.21356)
@ transition line 2, from (106.26999,200.91315) to (105.76999,202.41315)
@ transition line 3, from (102.00235,210.38254) to (101.00235,211.88254)
@ transition line 4, from (98.34491,215.15508) to (98.34491,215.15508)
(110,186)(109,186)(109,192)(108,192)(108,197)(107,197)(107,200)(106,200)
(106,203)(105,203)(105,206)(104,206)(104,208)(103,208)(103,210)(102,210)
(102,211)(101,211)(101,213)(100,213)(100,214)(99,214)
@ Octant Wn (4 offsets), from (98.34491,215.15508) to (79.20012,224)
@ transition line 5, from (98.34491,215.15508) to (96.34491,217.15508)
@ transition line 4, from (93.78696,219.26057) to (92.28696,220.26057)
@ transition line 3, from (88.51402,222.10439) to (87.01402,222.60439)
@ transition line 2, from (85.79652,222.95857) to (83.79652,223.45857)
@ transition line 1, from (79.20012,224) to (79.20012,224)
(99,215)(98,215)(98,216)(97,216)(97,217)(96,217)(96,218)(95,218)(95,219)
(93,219)(93,220)(92,220)(92,221)(90,221)(90,222)(87,222)(87,223)(84,223)
@ Octant Ws (4 offsets), from (79.20012,224) to (56.7514,214.2514)
@ transition line 0, from (79.20012,224) to (77.20012,224)
@ transition line 1, from (72.65747,223.45308) to (70.65747,222.95308)
@ transition line 2, from (69.3533,222.57336) to (67.8533,222.07336)
@ transition line 3, from (63.49971,219.93211) to (61.99971,218.93211)
@ transition line 4, from (58.7514,216.2514) to (56.7514,214.2514)
(84,224)(73,224)(73,223)(69,223)(69,222)(66,222)(66,221)(64,221)(64,220)
(63,220)(63,219)(61,219)(61,218)(60,218)(60,217)(59,217)(59,216)(58,216)
(58,215)(57,215)
@ Octant Sw (4 offsets), from (56.7514,214.2514) to (44,173)
@ transition line 5, from (56.7514,214.2514) to (56.7514,214.2514)
@ transition line 4, from (53.50374,210.25461) to (52.50374,208.75461)
@ transition line 3, from (48.12688,199.54884) to (47.62688,198.04884)
@ transition line 2, from (46.4884,194.12477) to (45.9884,192.12477)
@ transition line 1, from (44,175) to (44,173)
(57,214)(56,214)(56,213)(55,213)(55,212)(54,212)(54,210)(53,210)(53,209)
(52,209)(52,207)(51,207)(51,205)(50,205)(50,203)(49,203)(49,201)(48,201)
(48,198)(47,198)(47,194)(46,194)(46,190)(45,190)(45,184)(44,184)
@ Octant Se (4 offsets), from (44,173) to (46,168)
@ transition line 0, from (44,173) to (44,173)
@ transition line 1, from (44,173) to (44.5,171)
@ transition line 2, from (44.5,171) to (45,169.5)
@ transition line 3, from (45,169.5) to (46,168)
@ transition line 4, from (46,168) to (46,168)
(44,171)(45,171)(45,169)(46,169)
@ Octant Es (4 offsets), from (46,168) to (53,164)
@ transition line 5, from (46,168) to (48,166)
@ transition line 4, from (48,166) to (49.5,165)
@ transition line 3, from (49.5,165) to (51,164.5)
@ transition line 2, from (51,164.5) to (53,164)
@ transition line 1, from (53,164) to (53,164)
(46,168)(47,168)(47,167)(48,167)(48,166)(49,166)(49,165)(51,165)
@ Octant En (4 offsets), from (53,164) to (62.00005,168.00003)
@ transition line 0, from (53,164) to (55,164)
@ transition line 1, from (55,164) to (57,164.5)
@ transition line 2, from (57,164.5) to (58.5,165)
@ transition line 3, from (58.50005,165.00003) to (60.00005,166.00003)
@ transition line 4, from (60.00005,166.00003) to (62.00005,168.00003)
(51,164)(57,164)(57,165)(59,165)(59,166)(61,166)(61,167)(62,167)
@ Octant Ne (4 offsets), from (62.00005,168.00003) to (72.59337,200.09338)
@ transition line 5, from (62.00005,168.00003) to (62.00005,168.00003)
@ transition line 4, from (62.00005,168.00003) to (63.00005,169.50003)
@ transition line 3, from (63.00005,169.50003) to (63.50005,171.00003)
@ transition line 2, from (63.50005,171.00003) to (64.00005,173.00003)
@ transition line 1, from (65.78493,188.07382) to (65.28493,186.07382)
@ transition line 2, from (66.36713,189.80121) to (65.86713,188.30121)
@ transition line 3, from (70.24115,197.46985) to (69.24115,195.96985)
@ transition line 4, from (72.59337,200.09338) to (73.59337,201.59338)
@ transition line 3, from (73.59337,201.59338) to (74.09337,203.09338)
@ transition line 2, from (74.09337,203.09338) to (74.59337,205.09338)
@ transition line 1, from (74.59337,205.09338) to (74.59337,207.09338)
(62,169)(63,169)(63,171)(64,171)(64,181)(65,181)(65,187)(66,187)(66,190)
(67,190)(67,192)(68,192)(68,194)(69,194)(69,196)(70,196)(70,198)(71,198)
(71,199)(72,199)(72,200)(73,200)(73,201)(74,201)(74,205)(75,205)
@ retrograde line from (74.59337,207.09338) to (72.59337,200.09338)
(75,207)(74,207)(74,203)(73,203)
@ Octant En (4 offsets), from (72.59337,200.09338) to (77.20015,202)
@ retrograde line from (72.59337,200.09338) to (63.59337,196.09338)
(73,200)(71,200)(71,199)(69,199)(69,198)(67,198)(67,197)(65,197)
@ transition line 0, from (63.59337,196.09338) to (65.59337,196.09338)
@ transition line 1, from (65.59337,196.09338) to (67.59337,196.59338)
@ transition line 2, from (67.59337,196.59338) to (69.09337,197.09338)
@ transition line 3, from (69.09337,197.09338) to (70.59337,198.09338)
@ transition line 4, from (73.97752,200.88744) to (72.47752,199.88744)
@ transition line 3, from (76.9252,202.07817) to (75.4252,201.57817)
@ transition line 2, from (76.73387,201.95927) to (74.73387,201.45927)
@ transition line 1, from (79.20015,202) to (81.20015,202.5)
@ transition line 2, from (81.20015,202.5) to (82.70015,203)
@ transition line 3, from (82.70015,203) to (84.20015,204)
@ transition line 4, from (84.20015,204) to (86.20015,206)
(65,196)(67,196)(67,197)(70,197)(70,198)(71,198)(71,199)(72,199)(72,200)
(73,200)(73,201)(75,201)(75,202)(81,202)(81,203)(83,203)(83,204)(85,204)
(85,205)(86,205)
@ retrograde line from (86.20015,206) to (77.20015,202)
(86,206)(85,206)(85,205)(83,205)(83,204)(81,204)(81,203)(78,203)
@ Octant Es (4 offsets), from (77.20015,202) to (81.02403,201.47597)
@ retrograde line from (77.20015,202) to (70.20015,206)
(78,202)(76,202)(76,203)(75,203)(75,204)(73,204)(73,205)(71,205)
@ transition line 5, from (70.20015,206) to (72.20015,204)
@ transition line 4, from (72.20015,204) to (73.70015,203)
@ transition line 3, from (73.70015,203) to (75.20015,202.5)
@ transition line 2, from (75.20015,202.5) to (77.20015,202)
@ transition line 1, from (81.01031,201.54546) to (79.01031,202.04546)
@ transition line 2, from (80.06917,201.73726) to (78.56917,202.23726)
@ transition line 3, from (82.01448,200.54614) to (80.51448,201.54614)
@ transition line 4, from (83.02403,199.47597) to (84.52403,198.47597)
@ transition line 3, from (84.52403,198.47597) to (86.02403,197.97597)
@ transition line 2, from (86.02403,197.97597) to (88.02403,197.47597)
@ transition line 1, from (88.02403,197.47597) to (88.02403,197.47597)
(71,206)(71,205)(72,205)(72,204)(73,204)(73,203)(75,203)(75,202)(80,202)
(80,201)(82,201)(82,200)(83,200)(83,199)(84,199)(84,198)(88,198)
@ retrograde line from (88.02403,197.47597) to (81.02403,201.47597)
(88,197)(88,198)(86,198)(86,199)(84,199)(84,200)(83,200)
@ Octant Se (4 offsets), from (81.02403,201.47597) to (88,173.42082)
@ retrograde line from (81.02403,201.47597) to (79.02403,206.47597)
(83,201)(81,201)(81,203)(80,203)(80,205)(79,205)
@ transition line 0, from (79.02403,206.47597) to (79.02403,206.47597)
@ transition line 1, from (79.02403,206.47597) to (79.52403,204.47597)
@ transition line 2, from (79.52403,204.47597) to (80.02403,202.97597)
@ transition line 3, from (80.02403,202.97597) to (81.02403,201.47597)
@ transition line 4, from (83.49936,198.42929) to (82.49936,199.92929)
@ transition line 3, from (85.96161,192.60913) to (85.46161,194.10913)
@ transition line 2, from (86.44777,190.70448) to (85.94777,192.70448)
@ transition line 1, from (88,173.42082) to (88.5,171.42082)
@ transition line 2, from (88.5,171.42082) to (89,169.92082)
@ transition line 3, from (89,169.92082) to (90,168.42082)
@ transition line 4, from (90,168.42082) to (90,168.42082)
(79,206)(79,205)(80,205)(80,202)(81,202)(81,201)(82,201)(82,200)(83,200)
(83,198)(84,198)(84,196)(85,196)(85,194)(86,194)(86,190)(87,190)(87,184)
(88,184)(88,171)(89,171)(89,169)(90,169)
@ retrograde line from (90,168.42082) to (88,173.42082)
(90,168)(90,170)(89,170)(89,172)(88,172)
@ Octant Sw (4 offsets), from (88,173.42082) to (10,47.5849)
@ retrograde line from (88,173.42082) to (90,180.42082)
(88,175)(89,175)(89,179)(90,179)
@ transition line 5, from (90,180.42082) to (90,180.42082)
@ transition line 4, from (90,180.42082) to (89,178.92082)
@ transition line 3, from (89,178.92082) to (88.5,177.42082)
@ transition line 2, from (88.5,177.42082) to (88,175.42082)
@ transition line 1, from (86.80426,166.18459) to (87.30426,168.18459)
@ transition line 2, from (86.26,164.61119) to (86.76,166.11119)
@ transition line 3, from (77.37492,147.78691) to (78.37492,149.28691)
@ transition line 4, from (19.75917,81.70695) to (18.75917,80.20695)
@ transition line 3, from (13.59874,69.5801) to (13.09874,68.0801)
@ transition line 2, from (12.05545,64.49355) to (11.55545,62.49355)
@ transition line 1, from (10,49.5849) to (10,47.5849)
(90,180)(89,180)(89,177)(88,177)(88,170)(87,170)(87,165)(86,165)(86,163)
(85,163)(85,160)(84,160)(84,158)(83,158)(83,156)(82,156)(82,154)(81,154)
(81,153)(80,153)(80,151)(79,151)(79,150)(78,150)(78,148)(77,148)(77,147)
(76,147)(76,145)(75,145)(75,144)(74,144)(74,142)(73,142)(73,141)(72,141)
(72,140)(71,140)(71,139)(70,139)(70,137)(69,137)(69,136)(68,136)(68,135)
(67,135)(67,134)(66,134)(66,133)(65,133)(65,131)(64,131)(64,130)(63,130)
(63,129)(62,129)(62,128)(61,128)(61,127)(60,127)(60,126)(59,126)(59,125)
(58,125)(58,123)(57,123)(57,122)(56,122)(56,121)(55,121)(55,120)(54,120)
(54,119)(53,119)(53,118)(52,118)(52,117)(51,117)(51,116)(50,116)(50,115)
(49,115)(49,114)(48,114)(48,113)(47,113)(47,112)(46,112)(46,110)(45,110)
(45,109)(44,109)(44,108)(43,108)(43,107)(42,107)(42,106)(41,106)(41,105)
(40,105)(40,104)(39,104)(39,103)(38,103)(38,102)(37,102)(37,101)(36,101)
(36,100)(35,100)(35,98)(34,98)(34,97)(33,97)(33,96)(32,96)(32,95)(31,95)
(31,94)(30,94)(30,93)(29,93)(29,92)(28,92)(28,91)(27,91)(27,90)(26,90)
(26,89)(25,89)(25,88)(24,88)(24,87)(23,87)(23,85)(22,85)(22,84)(21,84)
(21,83)(20,83)(20,81)(19,81)(19,80)(18,80)(18,78)(17,78)(17,76)(16,76)
(16,74)(15,74)(15,72)(14,72)(14,69)(13,69)(13,66)(12,66)(12,62)(11,62)
(11,57)(10,57)
@ Octant Se (4 offsets), from (10,47.5849) to (24.5731,8.9269)
@ transition line 0, from (10,47.5849) to (10,47.5849)
@ transition line 1, from (11.62688,34.21112) to (12.12688,32.21112)
@ transition line 2, from (13.2306,28.41658) to (13.7306,26.91658)
@ transition line 3, from (18.9641,16.08136) to (19.9641,14.58136)
@ transition line 4, from (24.5731,8.9269) to (24.5731,8.9269)
(10,40)(11,40)(11,35)(12,35)(12,31)(13,31)(13,28)(14,28)(14,25)(15,25)
(15,22)(16,22)(16,20)(17,20)(17,18)(18,18)(18,17)(19,17)(19,15)(20,15)
(20,14)(21,14)(21,12)(22,12)(22,11)(23,11)(23,10)(24,10)
@ Octant Es (4 offsets), from (24.5731,8.9269) to (53,-4)
@ transition line 5, from (24.5731,8.9269) to (26.5731,6.9269)
@ transition line 4, from (31.39868,2.95776) to (32.89868,1.95776)
@ transition line 3, from (39.89902,-1.47433) to (41.39902,-1.97433)
@ transition line 2, from (43.54752,-2.59982) to (45.54752,-3.09982)
@ transition line 1, from (53,-4) to (53,-4)
(24,9)(25,9)(25,8)(26,8)(26,7)(27,7)(27,6)(28,6)(28,5)(29,5)(29,4)(31,4)
(31,3)(32,3)(32,2)(34,2)(34,1)(35,1)(35,0)(37,0)(37,-1)(40,-1)(40,-2)
(43,-2)(43,-3)(47,-3)
@ Octant En (4 offsets), from (53,-4) to (62,0)
@ transition line 0, from (53,-4) to (55,-4)
@ transition line 1, from (55,-4) to (57,-3.5)
@ transition line 2, from (57,-3.5) to (58.5,-3)
@ transition line 3, from (58.5,-3) to (60,-2)
@ transition line 4, from (60,-2) to (62,0)
(47,-4)(57,-4)(57,-3)(59,-3)(59,-2)(61,-2)(61,-1)(62,-1)
@ Octant Ne (4 offsets), from (62,0) to (64,9.00005)
@ transition line 5, from (62,0) to (62,0)
@ transition line 4, from (62,0) to (63,1.5)
@ transition line 3, from (63,1.5) to (63.5,3)
@ transition line 2, from (63.5,3) to (64,5)
@ transition line 1, from (64,7.00005) to (64,9.00005)
(62,1)(63,1)(63,3)(64,3)
@ Octant Nw (4 offsets), from (64,9.00005) to (62,14.00005)
@ transition line 0, from (64,9.00005) to (64,9.00005)
@ transition line 1, from (64,9.00005) to (63.5,11.00005)
@ transition line 2, from (63.5,11.00005) to (63,12.50005)
@ transition line 3, from (63,12.50005) to (62,14.00005)
@ transition line 4, from (62,14.00005) to (62,14.00005)
(64,11)(63,11)(63,13)(62,13)(62,14).
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-11
{(22)-(19.99995)}
(EXPR3)<-2.00005
(EXPR4)<-90
{begingroup}
{if}
{known(2.00005)}
{true}
{if}
{(2.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11l
{begingroup}
{endgroup}
{((x11r,y11r))-((x11l,y11l))}
{((2.00005,0))rotated(90)}
{((linearform,linearform))=((0,2.00005))}
## y11r=y11l+2.00005
## x11r=x11l
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11r
{begingroup}
{endgroup}
{((x11l,y11l+2.00005))-((x11l,y11l))}
{(0.5)*((0,2.00005))}
{((x11l,y11l))+((0,1.00003))}
{((x11,y11))=((x11l,y11l+1.00003))}
## y11=y11l+1.00003
## x11=x11l
{endgroup}
{(3.5)*(13.5)}
{(189)-(47.25)}
{(x11l)=(141.75)}
## x11l=141.75
#### x11=141.75
#### x11r=141.75
bot<primary>->begingroup(EXPR2)+if.pair(EXPR2):(0,pen_bot)else:pen_bot.fi.endgr
oup
(SUFFIX0)<-
(SUFFIX1)<-bot
(EXPR2)<-y11l
{begingroup}
{if}
{pair(y11l)}
{false}
{fi}
{(y11l)+(-10)}
{endgroup}
{-(4.00002)}
{(y11l-10)=(-4.00002)}
## y11l=5.99998
#### y11=7.00002
#### y11r=8.00003
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-10
{(20)-(19.99995)}
(EXPR3)<-0.00005
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
{((54.00003,174.42078))-((141.75,7.00002))}
{angle((-87.74997,167.42076))}
{(117.66031)-(90)}
(EXPR4)<-27.66031
{begingroup}
{if}
{known(0.00005)}
{true}
{if}
{(0.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10l
{begingroup}
{endgroup}
{((x10r,y10r))-((x10l,y10l))}
{((0.00005,0))rotated(27.66031)}
{((linearform,linearform))=((0.00005,0.00002))}
## y10r=y10l+0.00002
## x10r=x10l+0.00005
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10r
{begingroup}
{endgroup}
{((x10l+0.00005,y10l+0.00002))-((x10l,y10l))}
{(0.5)*((0.00005,0.00002))}
{((x10l,y10l))+((0.00003,0.00002))}
{((x10,y10))=((x10l+0.00003,y10l+0.00002))}
## y10=y10l+0.00002
## x10=x10l+0.00003
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
{((141.75,7.00002))-((54.00003,174.42078))}
{(0.5)*((87.74997,-167.42076))}
{((54.00003,174.42078))+((43.87498,-83.71039))}
{(1.75)*(13.5)}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
{((54.00003,174.42078))-((141.75,7.00002))}
{angle((-87.74997,167.42076))}
{(117.66031)+(90)}
{((23.625,0))rotated(207.66031)}
{((97.87502,90.71039))+((-20.92494,-10.96751))}
{((x10l+0.00003,y10l+0.00002))=((76.95007,79.74287))}
## y10l=79.74286
#### y10=79.74287
#### y10r=79.74287
## x10l=76.95004
#### x10=76.95007
#### x10r=76.95009
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z9e{down}...z10e{z11-z9}...{right}z11e
{begingroup}
{forsuffixes}
{loop value=l}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
{((141.75,7.00002))-((54.00003,174.42078))}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11l
{begingroup}
{endgroup}
Path at line 31, before choices:
(54,174.42076){0,-4096}..tension atleast1
..{1901.48029,-3627.8904}(76.95004,79.74286){1901.48029,-3627.8904}..tension a
tleast1
..{4096,0}(141.75,5.99998)
Path at line 31, after choices:
(54,174.42076)..controls (54,141.47113) and (61.65262,108.92928)
..(76.95004,79.74286)..controls (93.85149,47.49611) and (115.60078,5.99998)
..(141.75,5.99998)
{path_.l:=path}
{[repeat the loop]}
{loop value=r}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
{((141.75,7.00002))-((54.00003,174.42078))}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11r
{begingroup}
{endgroup}
Path at line 31, before choices:
(54.00005,174.42079){0,-4096}..tension atleast1
..{1901.48029,-3627.8904}(76.95009,79.74287){1901.48029,-3627.8904}..tension a
tleast1
..{4096,0}(141.75,8.00003)
Path at line 31, after choices:
(54.00005,174.42079)..controls (54.00005,141.47116) and (61.65265,108.9293)
..(76.95009,79.74287)..controls (93.58417,48.00624) and (114.55255,8.00003)
..(141.75,8.00003)
{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
{reverse(path)}
Path at line 31, before choices:
(54,174.42076)..controls (54,141.47113) and (61.65262,108.92928)
..(76.95004,79.74286)..controls (93.85149,47.49611) and (115.60078,5.99998)
..(141.75,5.99998){curl 1}
..{curl 1}(141.75,8.00003)..controls (114.55255,8.00003) and (93.58417,48.0062
4)
..(76.95009,79.74287)..controls (61.65265,108.9293) and (54.00005,141.47116)
..(54.00005,174.42079){curl 1}
..{curl 1}cycle
Path at line 31, after choices:
(54,174.42076)..controls (54,141.47113) and (61.65262,108.92928)
..(76.95004,79.74286)..controls (93.85149,47.49611) and (115.60078,5.99998)
..(141.75,5.99998)..controls (141.75,6.66667) and (141.75,7.33334)
..(141.75,8.00003)..controls (114.55255,8.00003) and (93.58417,48.00624)
..(76.95009,79.74287)..controls (61.65265,108.9293) and (54.00005,141.47116)
..(54.00005,174.42079)..controls (54.00003,174.42078) and (54.00002,174.42078)
..cycle
{endgroup}
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 31, before subdivision into octants:
(54,174.42076)..controls (54,141.47113) and (61.65262,108.92928)
..(76.95004,79.74286)..controls (93.85149,47.49611) and (115.60078,5.99998)
..(141.75,5.99998)..controls (141.75,6.66667) and (141.75,7.33334)
..(141.75,8.00003)..controls (114.55255,8.00003) and (93.58417,48.00624)
..(76.95009,79.74287)..controls (61.65265,108.9293) and (54.00005,141.47116)
..(54.00005,174.42079)..controls (54.00003,174.42078) and (54.00002,174.42078)
..cycle
Cycle spec at line 31, after subdivision and autorounding:
(54,173.99997) % beginning in octant `Se'
..controls (54,141.25835) and (61.6965,108.87053)
..(77.08162,79.76558) % segment 0
..controls (88.03802,59.03874) and (101.02,34.47998)
..(115.90695,19.59303) % segment 1
% entering octant `Es'
..controls (124.20123,11.29875) and (132.93642,6)
..(142,6) % segment 1
% entering octant `En'
% entering octant `Ne'
..controls (142,6.66502) and (142,7.33003)
..(142,7.99506) % segment 2
% entering octant `Nw'
% entering octant `Wn'
..controls (132.18324,7.99506) and (122.98494,13.51506)
..(114.40643,22.09357) % segment 3
% entering octant `Nw'
..controls (99.91443,36.58557) and (87.63293,59.81679)
..(77.08437,79.77008) % segment 3
..controls (61.69742,108.87546) and (54.00005,141.26169)
..(54.00005,174) % segment 4
% entering octant `Wn'
% entering octant `Ws'
..controls (54.00003,173.99998) and (54.00002,173.99998)
..(54,173.99997) % segment 5
% entering octant `Sw'
& cycle
Tracing edges at line 31: (weight 1)
@ Octant Se (4 offsets), from (44,172.99997) to (107.90695,13.59303)
@ transition line 0, from (44,172.99997) to (44,172.99997)
@ transition line 1, from (50.08614,123.24231) to (50.58614,121.24231)
@ transition line 2, from (54.87674,106.50401) to (55.37674,105.00401)
@ transition line 3, from (91.18231,34.88867) to (92.18231,33.38867)
@ transition line 4, from (107.90695,13.59303) to (107.90695,13.59303)
(44,173)(44,159)(45,159)(45,148)(46,148)(46,141)(47,141)(47,135)(48,135)
(48,130)(49,130)(49,126)(50,126)(50,122)(51,122)(51,118)(52,118)(52,114)
(53,114)(53,111)(54,111)(54,108)(55,108)(55,105)(56,105)(56,102)(57,102)
(57,99)(58,99)(58,96)(59,96)(59,94)(60,94)(60,91)(61,91)(61,89)(62,89)
(62,87)(63,87)(63,85)(64,85)(64,82)(65,82)(65,80)(66,80)(66,78)(67,78)
(67,76)(68,76)(68,74)(69,74)(69,73)(70,73)(70,71)(71,71)(71,69)(72,69)
(72,67)(73,67)(73,65)(74,65)(74,63)(75,63)(75,61)(76,61)(76,60)(77,60)
(77,58)(78,58)(78,56)(79,56)(79,54)(80,54)(80,52)(81,52)(81,51)(82,51)
(82,49)(83,49)(83,47)(84,47)(84,46)(85,46)(85,44)(86,44)(86,42)(87,42)
(87,41)(88,41)(88,39)(89,39)(89,37)(90,37)(90,36)(91,36)(91,34)(92,34)
(92,33)(93,33)(93,31)(94,31)(94,30)(95,30)(95,29)(96,29)(96,27)(97,27)
(97,26)(98,26)(98,24)(99,24)(99,23)(100,23)(100,22)(101,22)(101,21)
(102,21)(102,20)(103,20)(103,18)(104,18)(104,17)(105,17)(105,16)(106,16)
(106,15)(107,15)
@ Octant Es (4 offsets), from (107.90695,13.59303) to (141,-4)
@ transition line 5, from (107.90695,13.59303) to (109.90695,11.59303)
@ transition line 4, from (119.36899,3.67986) to (120.86899,2.67986)
@ transition line 3, from (129.49016,-1.65015) to (130.99016,-2.15015)
@ transition line 2, from (133.0438,-2.74937) to (135.0438,-3.24937)
@ transition line 1, from (141,-4) to (141,-4)
(107,14)(108,14)(108,13)(109,13)(109,12)(110,12)(110,11)(111,11)(111,10)
(112,10)(112,9)(113,9)(113,8)(114,8)(114,7)(116,7)(116,6)(117,6)(117,5)
(118,5)(118,4)(120,4)(120,3)(121,3)(121,2)(123,2)(123,1)(125,1)(125,0)
(127,0)(127,-1)(129,-1)(129,-2)(132,-2)(132,-3)(136,-3)
@ Octant En (4 offsets), from (141,-4) to (150,0)
@ transition line 0, from (141,-4) to (143,-4)
@ transition line 1, from (143,-4) to (145,-3.5)
@ transition line 2, from (145,-3.5) to (146.5,-3)
@ transition line 3, from (146.5,-3) to (148,-2)
@ transition line 4, from (148,-2) to (150,0)
(136,-4)(145,-4)(145,-3)(147,-3)(147,-2)(149,-2)(149,-1)(150,-1)
@ Octant Ne (4 offsets), from (150,0) to (152,8.99506)
@ transition line 5, from (150,0) to (150,0)
@ transition line 4, from (150,0) to (151,1.5)
@ transition line 3, from (151,1.5) to (151.5,3)
@ transition line 2, from (151.5,3) to (152,5)
@ transition line 1, from (152,6.99506) to (152,8.99506)
(150,1)(151,1)(151,3)(152,3)
@ Octant Nw (4 offsets), from (152,8.99506) to (150,13.99506)
@ transition line 0, from (152,8.99506) to (152,8.99506)
@ transition line 1, from (152,8.99506) to (151.5,10.99506)
@ transition line 2, from (151.5,10.99506) to (151,12.49506)
@ transition line 3, from (151,12.49506) to (150,13.99506)
@ transition line 4, from (150,13.99506) to (150,13.99506)
(152,11)(151,11)(151,13)(150,13)
@ Octant Wn (4 offsets), from (150,13.99506) to (122.40643,28.09357)
@ transition line 5, from (150,13.99506) to (148,15.99506)
@ transition line 4, from (148,15.99506) to (146.5,16.99506)
@ transition line 3, from (146.5,16.99506) to (145,17.49506)
@ transition line 2, from (145,17.49506) to (143,17.99506)
@ transition line 1, from (136.39719,18.82289) to (138.39719,18.32289)
@ transition line 2, from (136.16687,18.97353) to (137.66687,18.47353)
@ transition line 3, from (128.53934,23.04768) to (130.03934,22.04768)
@ transition line 4, from (120.40643,30.09357) to (118.90643,31.09357)
@ transition line 3, from (118.90643,31.09357) to (117.40643,31.59357)
@ transition line 2, from (117.40643,31.59357) to (115.40643,32.09357)
@ transition line 1, from (115.40643,32.09357) to (115.40643,32.09357)
(150,14)(149,14)(149,15)(148,15)(148,16)(147,16)(147,17)(145,17)(145,18)
(138,18)(138,19)(135,19)(135,20)(133,20)(133,21)(131,21)(131,22)(129,22)
(129,23)(128,23)(128,24)(127,24)(127,25)(125,25)(125,26)(124,26)(124,27)
(123,27)(123,28)(122,28)(122,29)(121,29)(121,30)(120,30)(120,31)(118,31)
@ retrograde line from (115.40643,32.09357) to (122.40643,28.09357)
(118,32)(116,32)(116,31)(118,31)(118,30)(120,30)(120,29)(122,29)
@ Octant Nw (4 offsets), from (122.40643,28.09357) to (62.00005,180)
@ retrograde line from (122.40643,28.09357) to (124.40643,23.09357)
(122,28)(123,28)(123,25)(124,25)
@ transition line 0, from (124.40643,23.09357) to (124.40643,23.09357)
@ transition line 1, from (124.40643,23.09357) to (123.90643,25.09357)
@ transition line 2, from (123.90643,25.09357) to (123.40643,26.59357)
@ transition line 3, from (123.40643,26.59357) to (122.40643,28.09357)
@ transition line 4, from (107.02248,47.43196) to (108.02248,45.93196)
@ transition line 3, from (73.37524,114.01653) to (73.87524,112.51653)
@ transition line 2, from (69.58502,127.25351) to (70.08502,125.25351)
@ transition line 1, from (64.00005,175) to (63.50005,177)
@ transition line 2, from (63.50005,177) to (63.00005,178.5)
@ transition line 3, from (63.00005,178.5) to (62.00005,180)
@ transition line 4, from (62.00005,180) to (62.00005,180)
(124,23)(124,26)(123,26)(123,28)(122,28)(122,29)(121,29)(121,30)(120,30)
(120,31)(119,31)(119,32)(118,32)(118,33)(117,33)(117,35)(116,35)(116,36)
(115,36)(115,37)(114,37)(114,38)(113,38)(113,40)(112,40)(112,41)(111,41)
(111,42)(110,42)(110,44)(109,44)(109,45)(108,45)(108,47)(107,47)(107,48)
(106,48)(106,50)(105,50)(105,51)(104,51)(104,53)(103,53)(103,55)(102,55)
(102,56)(101,56)(101,58)(100,58)(100,60)(99,60)(99,61)(98,61)(98,63)
(97,63)(97,65)(96,65)(96,67)(95,67)(95,69)(94,69)(94,70)(93,70)(93,72)
(92,72)(92,74)(91,74)(91,76)(90,76)(90,78)(89,78)(89,80)(88,80)(88,82)
(87,82)(87,83)(86,83)(86,85)(85,85)(85,87)(84,87)(84,89)(83,89)(83,91)
(82,91)(82,94)(81,94)(81,96)(80,96)(80,98)(79,98)(79,100)(78,100)(78,103)
(77,103)(77,105)(76,105)(76,108)(75,108)(75,111)(74,111)(74,114)(73,114)
(73,117)(72,117)(72,120)(71,120)(71,124)(70,124)(70,128)(69,128)(69,132)
(68,132)(68,137)(67,137)(67,143)(66,143)(66,150)(65,150)(65,161)(64,161)
(64,177)(63,177)(63,179)(62,179)
@ Octant Wn (4 offsets), from (62.00005,180) to (55.00005,184)
@ transition line 5, from (62.00005,180) to (60.00005,182)
@ transition line 4, from (60.00005,182) to (58.50005,183)
@ transition line 3, from (58.50005,183) to (57.00005,183.5)
@ transition line 2, from (57.00005,183.5) to (55.00005,184)
@ transition line 1, from (55.00005,184) to (55.00005,184)
(62,181)(61,181)(61,182)(59,182)(59,183)(57,183)
@ Octant Ws (4 offsets), from (55.00005,184) to (46,179.99997)
@ transition line 0, from (55.00005,184) to (53.00005,184)
@ transition line 1, from (53.00005,184) to (51.00005,183.5)
@ transition line 2, from (51.00005,183.5) to (49.50005,183)
@ transition line 3, from (49.5,182.99997) to (48,181.99997)
@ transition line 4, from (48,181.99997) to (46,179.99997)
(57,184)(51,184)(51,183)(49,183)(49,182)(48,182)(48,181)(47,181)
@ Octant Sw (4 offsets), from (46,179.99997) to (44,172.99997)
@ transition line 5, from (46,179.99997) to (46,179.99997)
@ transition line 4, from (46,179.99997) to (45,178.49997)
@ transition line 3, from (45,178.49997) to (44.5,176.99997)
@ transition line 2, from (44.5,176.99997) to (44,174.99997)
@ transition line 1, from (44,174.99997) to (44,172.99997)
(47,180)(46,180)(46,179)(45,179)(45,177)(44,177)(44,173).
{if}
{true}
pickup<secondary>->if.numeric(EXPR0):currentpen:=pen_[(EXPR0)];pen_top:=pen_top
_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt
_[(EXPR0)];currentpen_path:=pen_path_[(EXPR0)];else:currentpen:=(EXPR0)yscaled.
aspect_ratio;pen_top:=(ypart.penoffset.left.of.currentpen)/aspect_ratio;pen_bot
:=(ypart.penoffset.right.of.currentpen)/aspect_ratio;pen_lft:=xpart.penoffset.d
own.of.currentpen;pen_rt:=xpart.penoffset.up.of.currentpen;path.currentpen_path
;fi
(EXPR0)<-2
{if}
{numeric(2)}
{true}
{currentpen:=pen}
{pen_top:=10}
{pen_bot:=-10}
{pen_lft:=-10}
{pen_rt:=10}
{currentpen_path:=unknown path pen_path_2}
{else}
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-11'
{(22)-(19.99995)}
(EXPR3)<-2.00005
(EXPR4)<-90
{begingroup}
{if}
{known(2.00005)}
{true}
{if}
{(2.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'l
{begingroup}
{endgroup}
{((x11'r,y11'r))-((x11'l,y11'l))}
{((2.00005,0))rotated(90)}
{((linearform,linearform))=((0,2.00005))}
## y11'r=y11'l+2.00005
## x11'r=x11'l
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'r
{begingroup}
{endgroup}
{((x11'l,y11'l+2.00005))-((x11'l,y11'l))}
{(0.5)*((0,2.00005))}
{((x11'l,y11'l))+((0,1.00003))}
{((x11',y11'))=((x11'l,y11'l+1.00003))}
## y11'=y11'l+1.00003
## x11'=x11'l
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
{((x11'l,y11'l+1.00003))=((141.75,7.00002))}
## y11'l=5.99998
#### y11'=7.00002
#### y11'r=8.00003
## x11'l=141.75
#### x11'=141.75
#### x11'r=141.75
penpos@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR3):if(EXPR3)<=0:errmessage"bad
penpos";fi.fi.z(SUFFIX2)r-z(SUFFIX2)l=((EXPR3),0)rotated(EXPR4);z(SUFFIX2)=0.5[
z(SUFFIX2)l,z(SUFFIX2)r]endgroup
(SUFFIX0)<-
(SUFFIX1)<-penpos
(SUFFIX2)<-12
{(25)-(19.99995)}
(EXPR3)<-5.00005
(EXPR4)<-180
{begingroup}
{if}
{known(5.00005)}
{true}
{if}
{(5.00005)<=(0)}
{false}
{fi}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12r
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12l
{begingroup}
{endgroup}
{((x12r,y12r))-((x12l,y12l))}
{((5.00005,0))rotated(180)}
{((linearform,linearform))=((-5.00005,0))}
## y12r=y12l
## x12r=x12l-5.00005
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12l
{begingroup}
{endgroup}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12r
{begingroup}
{endgroup}
{((x12l-5.00005,y12l))-((x12l,y12l))}
{(0.5)*((-5.00005,0))}
{((x12l,y12l))+((-2.50003,0))}
{((x12,y12))=((x12l-2.50003,y12l))}
## y12=y12l
## x12=x12l-2.50003
{endgroup}
rt<primary>->begingroup(EXPR2)+if.pair(EXPR2):(pen_rt,0)else:pen_rt.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-rt
(EXPR2)<-x12l
{begingroup}
{if}
{pair(x12l)}
{false}
{fi}
{(x12l)+(10)}
{endgroup}
round<primary>->begingroup.if.numeric(EXPR2):floor((EXPR2)+0.5)elseif.pair(EXPR
2):(round.xpart(EXPR2),round.ypart(EXPR2))else:(EXPR2)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-round
{(189)-(13.5)}
(EXPR2)<-175.5
{begingroup}
{if}
{numeric(175.5)}
{true}
{(175.5)+(0.5)}
{elseif}
{floor(176)}
{endgroup}
{(x12l+10)=(176)}
## x12l=166
#### x12=163.49997
#### x12r=160.99995
{(0.5)*(78.99994)}
{(y12l)=(39.49997)}
## y12l=39.49997
#### y12=39.49997
#### y12r=39.49997
filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen
stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z11'e{right}...{up}z12e
{begingroup}
{forsuffixes}
{loop value=l}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'l
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12l
{begingroup}
{endgroup}
Path at line 34, before choices:
(141.75,5.99998){4096,0}..tension atleast1
..{0,4096}(166,39.49997)
Path at line 34, after choices:
(141.75,5.99998)..controls (157.1608,5.99998) and (166,22.46576)
..(166,39.49997)
{path_.l:=path}
{[repeat the loop]}
{loop value=r}
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11'r
{begingroup}
{endgroup}
...->..tension.atleast1..
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12r
{begingroup}
{endgroup}
Path at line 34, before choices:
(141.75,8.00003){4096,0}..tension atleast1
..{0,4096}(160.99995,39.49997)
Path at line 34, after choices:
(141.75,8.00003)..controls (155.3359,8.00003) and (160.99995,23.96054)
..(160.99995,39.49997)
{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}
--->{curl1}..{curl1}
--->{curl1}..{curl1}
{reverse(path)}
Path at line 34, before choices:
(141.75,5.99998)..controls (157.1608,5.99998) and (166,22.46576)
..(166,39.49997){curl 1}
..{curl 1}(160.99995,39.49997)..controls (160.99995,23.96054) and (155.3359,8.
00003)
..(141.75,8.00003){curl 1}
..{curl 1}cycle
Path at line 34, after choices:
(141.75,5.99998)..controls (157.1608,5.99998) and (166,22.46576)
..(166,39.49997)..controls (164.33331,39.49997) and (162.66664,39.49997)
..(160.99995,39.49997)..controls (160.99995,23.96054) and (155.3359,8.00003)
..(141.75,8.00003)..controls (141.75,7.33334) and (141.75,6.66667)
..cycle
{endgroup}
(EXPR0)<-path
fill<expr>->addto_currentpicture.contour↑(EXPR0)
counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path
addto_currentpicture->addto.currentpicture
{addto}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 34, before subdivision into octants:
(141.75,5.99998)..controls (157.1608,5.99998) and (166,22.46576)
..(166,39.49997)..controls (164.33331,39.49997) and (162.66664,39.49997)
..(160.99995,39.49997)..controls (160.99995,23.96054) and (155.3359,8.00003)
..(141.75,8.00003)..controls (141.75,7.33334) and (141.75,6.66667)
..cycle
Cycle spec at line 34, after subdivision and autorounding:
(142,6) % beginning in octant `En'
..controls (147.91403,6) and (152.77214,8.27216)
..(156.4879,11.98792) % segment 0
% entering octant `Ne'
..controls (162.6511,18.15111) and (166,28.42476)
..(166,39) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (164.3505,39) and (162.701,39)
..(161.0515,39) % segment 1
% entering octant `Sw'
..controls (161.0515,28.58763) and (158.54262,18.04262)
..(152.85179,12.35179) % segment 2
% entering octant `Ws'
..controls (150.11472,9.61472) and (146.5343,7.9702)
..(142,7.9702) % segment 2
% entering octant `Sw'
..controls (142,7.31346) and (142,6.65674)
..(142,6) % segment 3
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 34: (weight 1)
@ Octant En (4 offsets), from (141,-4) to (164.4879,5.98792)
@ transition line 0, from (141,-4) to (143,-4)
@ transition line 1, from (148.13672,-3.38379) to (150.13672,-2.88379)
@ transition line 2, from (151.58446,-2.4624) to (153.08446,-1.9624)
@ transition line 3, from (157.75262,0.32523) to (159.25262,1.32523)
@ transition line 4, from (162.4879,3.98792) to (164.4879,5.98792)
(148,-4)(148,-3)(151,-3)(151,-2)(154,-2)(154,-1)(156,-1)(156,0)(158,0)
(158,1)(160,1)(160,2)(161,2)(161,3)(162,3)(162,4)(163,4)(163,5)(164,5)
@ Octant Ne (4 offsets), from (164.4879,5.98792) to (176,40)
@ transition line 5, from (164.4879,5.98792) to (164.4879,5.98792)
@ transition line 4, from (167.71602,9.95525) to (168.71602,11.45525)
@ transition line 3, from (172.69008,19.73734) to (173.19008,21.23734)
@ transition line 2, from (174.09811,24.3617) to (174.59811,26.3617)
@ transition line 1, from (176,38) to (176,40)
(164,6)(165,6)(165,7)(166,7)(166,8)(167,8)(167,10)(168,10)(168,11)(169,11)
(169,13)(170,13)(170,15)(171,15)(171,17)(172,17)(172,19)(173,19)(173,22)
(174,22)(174,26)(175,26)(175,31)(176,31)
@ Octant Nw (4 offsets), from (176,40) to (174,45)
@ transition line 0, from (176,40) to (176,40)
@ transition line 1, from (176,40) to (175.5,42)
@ transition line 2, from (175.5,42) to (175,43.5)
@ transition line 3, from (175,43.5) to (174,45)
@ transition line 4, from (174,45) to (174,45)
(176,42)(175,42)(175,44)(174,44)
@ Octant Wn (4 offsets), from (174,45) to (167,49)
@ transition line 5, from (174,45) to (172,47)
@ transition line 4, from (172,47) to (170.5,48)
@ transition line 3, from (170.5,48) to (169,48.5)
@ transition line 2, from (169,48.5) to (167,49)
@ transition line 1, from (167,49) to (167,49)
(174,46)(173,46)(173,47)(171,47)(171,48)(169,48)
@ Octant Ws (4 offsets), from (167,49) to (153.0515,45)
@ transition line 0, from (167,49) to (165,49)
@ transition line 1, from (160.0515,49) to (158.0515,48.5)
@ transition line 2, from (158.0515,48.5) to (156.5515,48)
@ transition line 3, from (156.5515,48) to (155.0515,47)
@ transition line 4, from (155.0515,47) to (153.0515,45)
(169,49)(158,49)(158,48)(156,48)(156,47)(155,47)(155,46)(154,46)
@ Octant Sw (4 offsets), from (153.0515,45) to (144.85179,18.35179)
@ transition line 5, from (153.0515,45) to (153.0515,45)
@ transition line 4, from (153.0515,45) to (152.0515,43.5)
@ transition line 3, from (152.0515,43.5) to (151.5515,42)
@ transition line 2, from (151.5515,42) to (151.0515,40)
@ transition line 1, from (149.48085,26.37627) to (149.98085,28.37627)
@ transition line 2, from (149.09932,25.33704) to (149.59932,26.83704)
@ transition line 3, from (146.27531,19.83551) to (147.27531,21.33551)
@ transition line 4, from (144.85179,18.35179) to (143.85179,16.85179)
@ transition line 3, from (143.85179,16.85179) to (143.35179,15.35179)
@ transition line 2, from (143.35179,15.35179) to (142.85179,13.35179)
@ transition line 1, from (142.85179,13.35179) to (142.85179,11.35179)
(154,45)(153,45)(153,44)(152,44)(152,42)(151,42)(151,32)(150,32)(150,27)
(149,27)(149,24)(148,24)(148,22)(147,22)(147,20)(146,20)(146,19)(145,19)
(145,18)(144,18)(144,16)(143,16)
@ retrograde line from (142.85179,11.35179) to (144.85179,18.35179)
(143,11)(143,14)(144,14)(144,17)(145,17)
@ Octant Ws (4 offsets), from (144.85179,18.35179) to (134,13.9702)
@ retrograde line from (144.85179,18.35179) to (153.85179,22.35179)
(145,19)(147,19)(147,20)(150,20)(150,21)(152,21)
@ transition line 0, from (153.85179,22.35179) to (151.85179,22.35179)
@ transition line 1, from (151.85179,22.35179) to (149.85179,21.85179)
@ transition line 2, from (149.85179,21.85179) to (148.35179,21.35179)
@ transition line 3, from (148.35179,21.35179) to (146.85179,20.35179)
@ transition line 4, from (144.51874,18.43134) to (146.01874,19.43134)
@ transition line 3, from (142.60765,17.76279) to (144.10765,18.26279)
@ transition line 2, from (143.02115,17.94666) to (145.02115,18.44666)
@ transition line 1, from (141,17.9702) to (139,17.4702)
@ transition line 2, from (139,17.4702) to (137.5,16.9702)
@ transition line 3, from (137.5,16.9702) to (136,15.9702)
@ transition line 4, from (136,15.9702) to (134,13.9702)
(152,22)(149,22)(149,21)(147,21)(147,20)(146,20)(146,19)(144,19)(144,18)
(139,18)(139,17)(137,17)(137,16)(136,16)(136,15)(135,15)
@ Octant Sw (4 offsets), from (134,13.9702) to (132,5)
@ transition line 5, from (134,13.9702) to (134,13.9702)
@ transition line 4, from (134,13.9702) to (133,12.4702)
@ transition line 3, from (133,12.4702) to (132.5,10.9702)
@ transition line 2, from (132.5,10.9702) to (132,8.9702)
@ transition line 1, from (132,7) to (132,5)
(135,14)(134,14)(134,13)(133,13)(133,11)(132,11)
@ Octant Se (4 offsets), from (132,5) to (134,0)
@ transition line 0, from (132,5) to (132,5)
@ transition line 1, from (132,5) to (132.5,3)
@ transition line 2, from (132.5,3) to (133,1.5)
@ transition line 3, from (133,1.5) to (134,0)
@ transition line 4, from (134,0) to (134,0)
(132,3)(133,3)(133,1)(134,1)
@ Octant Es (4 offsets), from (134,0) to (141,-4)
@ transition line 5, from (134,0) to (136,-2)
@ transition line 4, from (136,-2) to (137.5,-3)
@ transition line 3, from (137.5,-3) to (139,-3.5)
@ transition line 2, from (139,-3.5) to (141,-4)
@ transition line 1, from (141,-4) to (141,-4)
(134,0)(135,0)(135,-1)(136,-1)(136,-2)(137,-2)(137,-3)(139,-3)(139,-4).
{else}
penlabels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$$=l,,r:forsuffixes$=(T
EXT3):makelabel(SUFFIX2)(str$ $$,z$ $$);endfor.endfor.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-penlabels
(SUFFIX2)<-
(TEXT3)<-0,1,2,3,4,5,6,7,8,9,10,11,12
{begingroup}
{if}
{(2)>(1)}
{true}
{forsuffixes}
{loop value=l}
{forsuffixes}
{loop value=0}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"0l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0l
{begingroup}
{endgroup}
(EXPR4)<-(140.1432,145)
{begingroup}
{if}
{known((140.1432,145))}
{true}
{special}
{(" 0")&("0l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(140.1432,145)
{begingroup}
{((140.1432,145))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((140.1432,145))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(140.1432,145)
{begingroup}
{((140.1432,145))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((140.1432,145))}
{endgroup}
{[repeat the loop]}
{loop value=1}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"1l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1l
{begingroup}
{endgroup}
(EXPR4)<-(128.77238,114.00047)
{begingroup}
{if}
{known((128.77238,114.00047))}
{true}
{special}
{(" 0")&("1l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(128.77238,114.00047)
{begingroup}
{((128.77238,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((128.77238,114.00047))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(128.77238,114.00047)
{begingroup}
{((128.77238,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((128.77238,114.00047))}
{endgroup}
{[repeat the loop]}
{loop value=2}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"2l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2l
{begingroup}
{endgroup}
(EXPR4)<-(54,8.00003)
{begingroup}
{if}
{known((54,8.00003))}
{true}
{special}
{(" 0")&("2l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,8.00003)
{begingroup}
{((54,8.00003))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54,8.00003))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54,8.00003)
{begingroup}
{((54,8.00003))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54,8.00003))}
{endgroup}
{[repeat the loop]}
{loop value=3}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"3l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3l
{begingroup}
{endgroup}
(EXPR4)<-(25.00005,49.7226)
{begingroup}
{if}
{known((25.00005,49.7226))}
{true}
{special}
{(" 0")&("3l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(25.00005,49.7226)
{begingroup}
{((25.00005,49.7226))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((25.00005,49.7226))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(25.00005,49.7226)
{begingroup}
{((25.00005,49.7226))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((25.00005,49.7226))}
{endgroup}
{[repeat the loop]}
{loop value=4}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"4l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4l
{begingroup}
{endgroup}
(EXPR4)<-(36.52397,83.01839)
{begingroup}
{if}
{known((36.52397,83.01839))}
{true}
{special}
{(" 0")&("4l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(36.52397,83.01839)
{begingroup}
{((36.52397,83.01839))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((36.52397,83.01839))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(36.52397,83.01839)
{begingroup}
{((36.52397,83.01839))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((36.52397,83.01839))}
{endgroup}
{[repeat the loop]}
{loop value=5}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"5l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}
(EXPR4)<-(60.73581,109.32275)
{begingroup}
{if}
{known((60.73581,109.32275))}
{true}
{special}
{(" 0")&("5l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(60.73581,109.32275)
{begingroup}
{((60.73581,109.32275))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((60.73581,109.32275))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(60.73581,109.32275)
{begingroup}
{((60.73581,109.32275))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((60.73581,109.32275))}
{endgroup}
{[repeat the loop]}
{loop value=6}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"6l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6l
{begingroup}
{endgroup}
(EXPR4)<-(x6l,y6l)
{begingroup}
{if}
{known((x6l,y6l))}
{false}
{endgroup}
{[repeat the loop]}
{loop value=7}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"7l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
(EXPR4)<-(100.00005,174.42079)
{begingroup}
{if}
{known((100.00005,174.42079))}
{true}
{special}
{(" 0")&("7l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(100.00005,174.42079)
{begingroup}
{((100.00005,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((100.00005,174.42079))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(100.00005,174.42079)
{begingroup}
{((100.00005,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((100.00005,174.42079))}
{endgroup}
{[repeat the loop]}
{loop value=8}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"8l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8l
{begingroup}
{endgroup}
(EXPR4)<-(78.20015,214.00002)
{begingroup}
{if}
{known((78.20015,214.00002))}
{true}
{special}
{(" 0")&("8l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(78.20015,214.00002)
{begingroup}
{((78.20015,214.00002))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((78.20015,214.00002))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(78.20015,214.00002)
{begingroup}
{((78.20015,214.00002))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((78.20015,214.00002))}
{endgroup}
{[repeat the loop]}
{loop value=9}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"9l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9l
{begingroup}
{endgroup}
(EXPR4)<-(54,174.42076)
{begingroup}
{if}
{known((54,174.42076))}
{true}
{special}
{(" 0")&("9l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,174.42076)
{begingroup}
{((54,174.42076))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54,174.42076))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54,174.42076)
{begingroup}
{((54,174.42076))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54,174.42076))}
{endgroup}
{[repeat the loop]}
{loop value=10}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"10l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10l
{begingroup}
{endgroup}
(EXPR4)<-(76.95004,79.74286)
{begingroup}
{if}
{known((76.95004,79.74286))}
{true}
{special}
{(" 0")&("10l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(76.95004,79.74286)
{begingroup}
{((76.95004,79.74286))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((76.95004,79.74286))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(76.95004,79.74286)
{begingroup}
{((76.95004,79.74286))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((76.95004,79.74286))}
{endgroup}
{[repeat the loop]}
{loop value=11}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"11l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11l
{begingroup}
{endgroup}
(EXPR4)<-(141.75,5.99998)
{begingroup}
{if}
{known((141.75,5.99998))}
{true}
{special}
{(" 0")&("11l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(141.75,5.99998)
{begingroup}
{((141.75,5.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((141.75,5.99998))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(141.75,5.99998)
{begingroup}
{((141.75,5.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((141.75,5.99998))}
{endgroup}
{[repeat the loop]}
{loop value=12}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"12l"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12l
{begingroup}
{endgroup}
(EXPR4)<-(166,39.49997)
{begingroup}
{if}
{known((166,39.49997))}
{true}
{special}
{(" 0")&("12l")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(166,39.49997)
{begingroup}
{((166,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((166,39.49997))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(166,39.49997)
{begingroup}
{((166,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((166,39.49997))}
{endgroup}
{[repeat the loop]}
{[repeat the loop]}
{loop value=}
{forsuffixes}
{loop value=0}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"0"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0
{begingroup}
{endgroup}
(EXPR4)<-(142.64323,145)
{begingroup}
{if}
{known((142.64323,145))}
{true}
{special}
{(" 0")&("0")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(142.64323,145)
{begingroup}
{((142.64323,145))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((142.64323,145))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(142.64323,145)
{begingroup}
{((142.64323,145))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((142.64323,145))}
{endgroup}
{[repeat the loop]}
{loop value=1}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"1"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1
{begingroup}
{endgroup}
(EXPR4)<-(131.27242,114.00047)
{begingroup}
{if}
{known((131.27242,114.00047))}
{true}
{special}
{(" 0")&("1")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(131.27242,114.00047)
{begingroup}
{((131.27242,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((131.27242,114.00047))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(131.27242,114.00047)
{begingroup}
{((131.27242,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((131.27242,114.00047))}
{endgroup}
{[repeat the loop]}
{loop value=2}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"2"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2
{begingroup}
{endgroup}
(EXPR4)<-(54,7)
{begingroup}
{if}
{known((54,7))}
{true}
{special}
{(" 0")&("2")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,7)
{begingroup}
{((54,7))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54,7))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54,7)
{begingroup}
{((54,7))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54,7))}
{endgroup}
{[repeat the loop]}
{loop value=3}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"3"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3
{begingroup}
{endgroup}
(EXPR4)<-(x3,y3)
{begingroup}
{if}
{known((x3,y3))}
{false}
{endgroup}
{[repeat the loop]}
{loop value=4}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"4"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4
{begingroup}
{endgroup}
(EXPR4)<-(x4,y4)
{begingroup}
{if}
{known((x4,y4))}
{false}
{endgroup}
{[repeat the loop]}
{loop value=5}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"5"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5
{begingroup}
{endgroup}
(EXPR4)<-(60.00003,110)
{begingroup}
{if}
{known((60.00003,110))}
{true}
{special}
{(" 0")&("5")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(60.00003,110)
{begingroup}
{((60.00003,110))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((60.00003,110))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(60.00003,110)
{begingroup}
{((60.00003,110))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((60.00003,110))}
{endgroup}
{[repeat the loop]}
{loop value=6}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"6"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6
{begingroup}
{endgroup}
(EXPR4)<-(x6,y6)
{begingroup}
{if}
{known((x6,y6))}
{false}
{endgroup}
{[repeat the loop]}
{loop value=7}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"7"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7
{begingroup}
{endgroup}
(EXPR4)<-(99.00002,174.42079)
{begingroup}
{if}
{known((99.00002,174.42079))}
{true}
{special}
{(" 0")&("7")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(99.00002,174.42079)
{begingroup}
{((99.00002,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((99.00002,174.42079))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(99.00002,174.42079)
{begingroup}
{((99.00002,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((99.00002,174.42079))}
{endgroup}
{[repeat the loop]}
{loop value=8}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"8"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8
{begingroup}
{endgroup}
(EXPR4)<-(78.20015,212.99998)
{begingroup}
{if}
{known((78.20015,212.99998))}
{true}
{special}
{(" 0")&("8")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(78.20015,212.99998)
{begingroup}
{((78.20015,212.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((78.20015,212.99998))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(78.20015,212.99998)
{begingroup}
{((78.20015,212.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((78.20015,212.99998))}
{endgroup}
{[repeat the loop]}
{loop value=9}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"9"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9
{begingroup}
{endgroup}
(EXPR4)<-(54.00003,174.42078)
{begingroup}
{if}
{known((54.00003,174.42078))}
{true}
{special}
{(" 0")&("9")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54.00003,174.42078)
{begingroup}
{((54.00003,174.42078))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54.00003,174.42078))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54.00003,174.42078)
{begingroup}
{((54.00003,174.42078))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54.00003,174.42078))}
{endgroup}
{[repeat the loop]}
{loop value=10}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"10"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10
{begingroup}
{endgroup}
(EXPR4)<-(76.95007,79.74287)
{begingroup}
{if}
{known((76.95007,79.74287))}
{true}
{special}
{(" 0")&("10")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(76.95007,79.74287)
{begingroup}
{((76.95007,79.74287))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((76.95007,79.74287))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(76.95007,79.74287)
{begingroup}
{((76.95007,79.74287))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((76.95007,79.74287))}
{endgroup}
{[repeat the loop]}
{loop value=11}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"11"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11
{begingroup}
{endgroup}
(EXPR4)<-(141.75,7.00002)
{begingroup}
{if}
{known((141.75,7.00002))}
{true}
{special}
{(" 0")&("11")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(141.75,7.00002)
{begingroup}
{((141.75,7.00002))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((141.75,7.00002))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(141.75,7.00002)
{begingroup}
{((141.75,7.00002))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((141.75,7.00002))}
{endgroup}
{[repeat the loop]}
{loop value=12}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"12"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12
{begingroup}
{endgroup}
(EXPR4)<-(163.49997,39.49997)
{begingroup}
{if}
{known((163.49997,39.49997))}
{true}
{special}
{(" 0")&("12")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(163.49997,39.49997)
{begingroup}
{((163.49997,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((163.49997,39.49997))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(163.49997,39.49997)
{begingroup}
{((163.49997,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((163.49997,39.49997))}
{endgroup}
{[repeat the loop]}
{[repeat the loop]}
{loop value=r}
{forsuffixes}
{loop value=0}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"0r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-0r
{begingroup}
{endgroup}
(EXPR4)<-(145.14325,145)
{begingroup}
{if}
{known((145.14325,145))}
{true}
{special}
{(" 0")&("0r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(145.14325,145)
{begingroup}
{((145.14325,145))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((145.14325,145))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(145.14325,145)
{begingroup}
{((145.14325,145))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((145.14325,145))}
{endgroup}
{[repeat the loop]}
{loop value=1}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"1r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1r
{begingroup}
{endgroup}
(EXPR4)<-(133.77243,114.00047)
{begingroup}
{if}
{known((133.77243,114.00047))}
{true}
{special}
{(" 0")&("1r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(133.77243,114.00047)
{begingroup}
{((133.77243,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((133.77243,114.00047))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(133.77243,114.00047)
{begingroup}
{((133.77243,114.00047))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((133.77243,114.00047))}
{endgroup}
{[repeat the loop]}
{loop value=2}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"2r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2r
{begingroup}
{endgroup}
(EXPR4)<-(54,5.99998)
{begingroup}
{if}
{known((54,5.99998))}
{true}
{special}
{(" 0")&("2r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,5.99998)
{begingroup}
{((54,5.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54,5.99998))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54,5.99998)
{begingroup}
{((54,5.99998))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54,5.99998))}
{endgroup}
{[repeat the loop]}
{loop value=3}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"3r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3r
{begingroup}
{endgroup}
(EXPR4)<-(20,48.58488)
{begingroup}
{if}
{known((20,48.58488))}
{true}
{special}
{(" 0")&("3r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(20,48.58488)
{begingroup}
{((20,48.58488))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((20,48.58488))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(20,48.58488)
{begingroup}
{((20,48.58488))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((20,48.58488))}
{endgroup}
{[repeat the loop]}
{loop value=4}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"4r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4r
{begingroup}
{endgroup}
(EXPR4)<-(31.7213,80.75388)
{begingroup}
{if}
{known((31.7213,80.75388))}
{true}
{special}
{(" 0")&("4r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(31.7213,80.75388)
{begingroup}
{((31.7213,80.75388))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((31.7213,80.75388))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(31.7213,80.75388)
{begingroup}
{((31.7213,80.75388))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((31.7213,80.75388))}
{endgroup}
{[repeat the loop]}
{loop value=5}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"5r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}
(EXPR4)<-(59.26425,110.67725)
{begingroup}
{if}
{known((59.26425,110.67725))}
{true}
{special}
{(" 0")&("5r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(59.26425,110.67725)
{begingroup}
{((59.26425,110.67725))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((59.26425,110.67725))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(59.26425,110.67725)
{begingroup}
{((59.26425,110.67725))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((59.26425,110.67725))}
{endgroup}
{[repeat the loop]}
{loop value=6}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"6r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6r
{begingroup}
{endgroup}
(EXPR4)<-(x6r,y6r)
{begingroup}
{if}
{known((x6r,y6r))}
{false}
{endgroup}
{[repeat the loop]}
{loop value=7}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"7r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
(EXPR4)<-(98,174.42079)
{begingroup}
{if}
{known((98,174.42079))}
{true}
{special}
{(" 0")&("7r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(98,174.42079)
{begingroup}
{((98,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((98,174.42079))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(98,174.42079)
{begingroup}
{((98,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((98,174.42079))}
{endgroup}
{[repeat the loop]}
{loop value=8}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"8r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-8r
{begingroup}
{endgroup}
(EXPR4)<-(78.20015,211.99997)
{begingroup}
{if}
{known((78.20015,211.99997))}
{true}
{special}
{(" 0")&("8r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(78.20015,211.99997)
{begingroup}
{((78.20015,211.99997))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((78.20015,211.99997))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(78.20015,211.99997)
{begingroup}
{((78.20015,211.99997))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((78.20015,211.99997))}
{endgroup}
{[repeat the loop]}
{loop value=9}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"9r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-9r
{begingroup}
{endgroup}
(EXPR4)<-(54.00005,174.42079)
{begingroup}
{if}
{known((54.00005,174.42079))}
{true}
{special}
{(" 0")&("9r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54.00005,174.42079)
{begingroup}
{((54.00005,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((54.00005,174.42079))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(54.00005,174.42079)
{begingroup}
{((54.00005,174.42079))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((54.00005,174.42079))}
{endgroup}
{[repeat the loop]}
{loop value=10}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"10r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-10r
{begingroup}
{endgroup}
(EXPR4)<-(76.95009,79.74287)
{begingroup}
{if}
{known((76.95009,79.74287))}
{true}
{special}
{(" 0")&("10r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(76.95009,79.74287)
{begingroup}
{((76.95009,79.74287))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((76.95009,79.74287))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(76.95009,79.74287)
{begingroup}
{((76.95009,79.74287))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((76.95009,79.74287))}
{endgroup}
{[repeat the loop]}
{loop value=11}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"11r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-11r
{begingroup}
{endgroup}
(EXPR4)<-(141.75,8.00003)
{begingroup}
{if}
{known((141.75,8.00003))}
{true}
{special}
{(" 0")&("11r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(141.75,8.00003)
{begingroup}
{((141.75,8.00003))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((141.75,8.00003))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(141.75,8.00003)
{begingroup}
{((141.75,8.00003))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((141.75,8.00003))}
{endgroup}
{[repeat the loop]}
{loop value=12}
makelabel@#(EXPR3)(EXPR4)->begingroup.if.known(EXPR4):special.lcode_(SUFFIX2)&(
EXPR3);numspecial.xpart↑(EXPR4);numspecial.ypart↑(EXPR4)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-makelabel
(SUFFIX2)<-
(EXPR3)<-"12r"
z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-12r
{begingroup}
{endgroup}
(EXPR4)<-(160.99995,39.49997)
{begingroup}
{if}
{known((160.99995,39.49997))}
{true}
{special}
{(" 0")&("12r")}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(160.99995,39.49997)
{begingroup}
{((160.99995,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{xpart((160.99995,39.49997))}
{numspecial}
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{fi}
(EXPR2)<-(160.99995,39.49997)
{begingroup}
{((160.99995,39.49997))transformed((0,0,1,0,0,1))}
{endgroup}
{ypart((160.99995,39.49997))}
{endgroup}
{[repeat the loop]}
{[repeat the loop]}
{fi}
{endgroup}
endchar->echar;stop"done with char "&decimal.charcode&". "
echar->scantokens.extra_endchar;if.proofing>0:makebox(proofrule);fi.chardx:=w;s
hipit;if.displaying>0:makebox(screenrule);showit;fi.endgroup
{scantokens}
{(189)+(0)}
{r:=189}
## r=189
{(189)-(0)}
{w:=189}
## w=189
{if}
{(2)>(0)}
{true}
makebox(TEXT0)->for.y=0,asc_height,body_height,x_height,bar_height,-desc_depth,
-body_depth:(TEXT0)(↑(l,y),↑(r,y));endfor.for.x=l,r:(TEXT0)(↑(x,-body_depth),↑(
x,body_height));endfor.for.x=u*(1+floor(l/u))step.u.until.r-1:(TEXT0)(↑(x,-body
_depth),↑(x,body_height));endfor.if.charic≠0:(TEXT0)((r+charic*pt,h!),(r+charic
*pt,0.5h!));fi
(TEXT0)<-proofrule
{for}
{-(80)}
{-(110)}
{loop value=0}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,0)
{begingroup}
{((0,0))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,0)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,0)
{begingroup}
{((189,0))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,0)
{special}
{numspecial}
{xpart((0,0))}
{numspecial}
{ypart((0,0))}
{numspecial}
{xpart((189,0))}
{numspecial}
{ypart((189,0))}
{[repeat the loop]}
{loop value=220}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,220)
{begingroup}
{((0,220))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,220)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,220)
{begingroup}
{((189,220))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,220)
{special}
{numspecial}
{xpart((0,220))}
{numspecial}
{ypart((0,220))}
{numspecial}
{xpart((189,220))}
{numspecial}
{ypart((189,220))}
{[repeat the loop]}
{loop value=250}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,250)
{begingroup}
{((0,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,250)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,250)
{begingroup}
{((189,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,250)
{special}
{numspecial}
{xpart((0,250))}
{numspecial}
{ypart((0,250))}
{numspecial}
{xpart((189,250))}
{numspecial}
{ypart((189,250))}
{[repeat the loop]}
{loop value=155}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,155)
{begingroup}
{((0,155))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,155)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,155)
{begingroup}
{((189,155))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,155)
{special}
{numspecial}
{xpart((0,155))}
{numspecial}
{ypart((0,155))}
{numspecial}
{xpart((189,155))}
{numspecial}
{ypart((189,155))}
{[repeat the loop]}
{loop value=78.99994}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,78.99994)
{begingroup}
{((0,78.99994))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,78.99994)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,78.99994)
{begingroup}
{((189,78.99994))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,78.99994)
{special}
{numspecial}
{xpart((0,78.99994))}
{numspecial}
{ypart((0,78.99994))}
{numspecial}
{xpart((189,78.99994))}
{numspecial}
{ypart((189,78.99994))}
{[repeat the loop]}
{loop value=-80}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,-80)
{begingroup}
{((0,-80))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-80)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,-80)
{begingroup}
{((189,-80))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,-80)
{special}
{numspecial}
{xpart((0,-80))}
{numspecial}
{ypart((0,-80))}
{numspecial}
{xpart((189,-80))}
{numspecial}
{ypart((189,-80))}
{[repeat the loop]}
{loop value=-110}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,-110)
{begingroup}
{((0,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,-110)
{begingroup}
{((189,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,-110)
{special}
{numspecial}
{xpart((0,-110))}
{numspecial}
{ypart((0,-110))}
{numspecial}
{xpart((189,-110))}
{numspecial}
{ypart((189,-110))}
{[repeat the loop]}
{for}
{loop value=0}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(0,-110)
{begingroup}
{((0,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,250)
{begingroup}
{((0,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(0,250)
{special}
{numspecial}
{xpart((0,-110))}
{numspecial}
{ypart((0,-110))}
{numspecial}
{xpart((0,250))}
{numspecial}
{ypart((0,250))}
{[repeat the loop]}
{loop value=189}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(189,-110)
{begingroup}
{((189,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(189,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,250)
{begingroup}
{((189,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,250)
{special}
{numspecial}
{xpart((189,-110))}
{numspecial}
{ypart((189,-110))}
{numspecial}
{xpart((189,250))}
{numspecial}
{ypart((189,250))}
{[repeat the loop]}
{for}
{(0)/(13.5)}
{floor(0)}
{(1)+(0)}
{(13.5)*(1)}
{(189)-(1)}
{loop value=13.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(13.5,-110)
{begingroup}
{((13.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(13.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(13.5,250)
{begingroup}
{((13.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(13.5,250)
{special}
{numspecial}
{xpart((13.5,-110))}
{numspecial}
{ypart((13.5,-110))}
{numspecial}
{xpart((13.5,250))}
{numspecial}
{ypart((13.5,250))}
{[repeat the loop]}
{loop value=27}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(27,-110)
{begingroup}
{((27,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(27,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(27,250)
{begingroup}
{((27,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(27,250)
{special}
{numspecial}
{xpart((27,-110))}
{numspecial}
{ypart((27,-110))}
{numspecial}
{xpart((27,250))}
{numspecial}
{ypart((27,250))}
{[repeat the loop]}
{loop value=40.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(40.5,-110)
{begingroup}
{((40.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(40.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(40.5,250)
{begingroup}
{((40.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(40.5,250)
{special}
{numspecial}
{xpart((40.5,-110))}
{numspecial}
{ypart((40.5,-110))}
{numspecial}
{xpart((40.5,250))}
{numspecial}
{ypart((40.5,250))}
{[repeat the loop]}
{loop value=54}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(54,-110)
{begingroup}
{((54,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(54,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,250)
{begingroup}
{((54,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(54,250)
{special}
{numspecial}
{xpart((54,-110))}
{numspecial}
{ypart((54,-110))}
{numspecial}
{xpart((54,250))}
{numspecial}
{ypart((54,250))}
{[repeat the loop]}
{loop value=67.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(67.5,-110)
{begingroup}
{((67.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(67.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(67.5,250)
{begingroup}
{((67.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(67.5,250)
{special}
{numspecial}
{xpart((67.5,-110))}
{numspecial}
{ypart((67.5,-110))}
{numspecial}
{xpart((67.5,250))}
{numspecial}
{ypart((67.5,250))}
{[repeat the loop]}
{loop value=81}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(81,-110)
{begingroup}
{((81,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(81,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(81,250)
{begingroup}
{((81,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(81,250)
{special}
{numspecial}
{xpart((81,-110))}
{numspecial}
{ypart((81,-110))}
{numspecial}
{xpart((81,250))}
{numspecial}
{ypart((81,250))}
{[repeat the loop]}
{loop value=94.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(94.5,-110)
{begingroup}
{((94.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(94.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(94.5,250)
{begingroup}
{((94.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(94.5,250)
{special}
{numspecial}
{xpart((94.5,-110))}
{numspecial}
{ypart((94.5,-110))}
{numspecial}
{xpart((94.5,250))}
{numspecial}
{ypart((94.5,250))}
{[repeat the loop]}
{loop value=108}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(108,-110)
{begingroup}
{((108,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(108,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(108,250)
{begingroup}
{((108,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(108,250)
{special}
{numspecial}
{xpart((108,-110))}
{numspecial}
{ypart((108,-110))}
{numspecial}
{xpart((108,250))}
{numspecial}
{ypart((108,250))}
{[repeat the loop]}
{loop value=121.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(121.5,-110)
{begingroup}
{((121.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(121.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(121.5,250)
{begingroup}
{((121.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(121.5,250)
{special}
{numspecial}
{xpart((121.5,-110))}
{numspecial}
{ypart((121.5,-110))}
{numspecial}
{xpart((121.5,250))}
{numspecial}
{ypart((121.5,250))}
{[repeat the loop]}
{loop value=135}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(135,-110)
{begingroup}
{((135,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(135,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(135,250)
{begingroup}
{((135,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(135,250)
{special}
{numspecial}
{xpart((135,-110))}
{numspecial}
{ypart((135,-110))}
{numspecial}
{xpart((135,250))}
{numspecial}
{ypart((135,250))}
{[repeat the loop]}
{loop value=148.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(148.5,-110)
{begingroup}
{((148.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(148.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(148.5,250)
{begingroup}
{((148.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(148.5,250)
{special}
{numspecial}
{xpart((148.5,-110))}
{numspecial}
{ypart((148.5,-110))}
{numspecial}
{xpart((148.5,250))}
{numspecial}
{ypart((148.5,250))}
{[repeat the loop]}
{loop value=162}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(162,-110)
{begingroup}
{((162,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(162,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(162,250)
{begingroup}
{((162,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(162,250)
{special}
{numspecial}
{xpart((162,-110))}
{numspecial}
{ypart((162,-110))}
{numspecial}
{xpart((162,250))}
{numspecial}
{ypart((162,250))}
{[repeat the loop]}
{loop value=175.5}
proofrule(EXPR0)(EXPR1)->special"rule";numspecial.xpart(EXPR0);numspecial.ypart
(EXPR0);numspecial.xpart(EXPR1);numspecial.ypart(EXPR1)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(175.5,-110)
{begingroup}
{((175.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(175.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(175.5,250)
{begingroup}
{((175.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(175.5,250)
{special}
{numspecial}
{xpart((175.5,-110))}
{numspecial}
{ypart((175.5,-110))}
{numspecial}
{xpart((175.5,250))}
{numspecial}
{ypart((175.5,250))}
{[repeat the loop]}
{if}
{(0)<>(0)}
{false}
{fi}
{chardx:=189}
shipit->shipout.currentpicture
{shipout}
[38]
Edge structure at line 39 (just shipped out):
row 223: | 73+ 84-
row 222: | 69+ 87-
row 221: | 66+ 90-
row 220: | 64+ 92-
row 219: | 63+ 93-
row 218: | 61+ 95-
row 217: | 60+ 96-
row 216: | 59+ 97-
row 215: | 58+ 98-
row 214: | 57+ 99-
row 213: | 56+ 100-
row 212: | 55+ 101-
row 211: | 54+ 101-
row 210: | 54+ 102-
row 209: | 53+ 103-
row 208: | 52+ 103-
row 207: | 52+ 104-
row 206: | 51+ 74+ 75- 104-
row 205: | 51+ 71- 71+ 74+ 75- 79- 79+ 85+ 86- 105-
row 204: | 50+ 72+ 73- 74- 74+ 80- 80+ 83+ 85- 105-
row 203: | 50+ 73+ 74- 74+ 75- 80- 80+ 81+ 83- 105-
row 202: | 49+ 73+ 74- 75+ 76- 78+ 80+ 81- 81- 106-
row 201: | 49+ 73+ 74- 75- 80+ 81- 81+ 106-
row 200: | 48+ 73- 73- 73+ 82+ 82+ 83- 106-
row 199: | 48+ 71+ 72- 72- 83+ 83+ 84- 107-
row 198: | 48+ 69+ 71- 71- 83+ 84+ 86- 107-
row 197: | 47+ 67+ 70- 70- 84+ 88- 88+ 107-
row 196: | 47+ 65+ 67- 70- 84+ 108-
row 195: | 47+ 69- 85+ 108-
row 194: | 47+ 69- 85+ 108-
row 193: | 46+ 68- 86+ 108-
row 192: | 46+ 68- 86+ 108-
row 191: | 46+ 67- 86+ 109-
row 190: | 46+ 67- 86+ 109-
row 189: | 45+ 66- 87+ 109-
row 188: | 45+ 66- 87+ 109-
row 187: | 45+ 66- 87+ 109-
row 186: | 45+ 65- 87+ 109-
row 185: | 45+ 65- 87+ 110-
row 184: | 45+ 65- 87+ 110-
row 183: | 44+ 51+ 57- 65- 88+ 110-
row 182: | 44+ 49+ 59- 65- 88+ 110-
row 181: | 44+ 48+ 61- 65- 88+ 110-
row 180: | 44+ 47+ 62- 64- 88+ 110-
row 179: | 44+ 46+ 62- 64- 88+ 89+ 90- 110-
row 178: | 44+ 45+ 63- 64- 88+ 89- 89+ 110-
row 177: | 44+ 45+ 63- 64- 88+ 89- 89+ 110-
row 176: | 44+ 44+ 64- 64- 88+ 88+ 89- 110-
row 175: | 44+ 44+ 64- 64- 88+ 88+ 89- 110-
row 174: | 44+ 44+ 64- 64- 88- 88+ 88+ 110-
row 173: | 44+ 44+ 64- 64- 88- 88+ 88+ 110-
row 172: | 44+ 44+ 64- 64- 88- 88+ 88+ 110-
row 171: | 44+ 44+ 64- 64- 88+ 88+ 89- 110-
row 170: | 44+ 45+ 63- 64- 88+ 89- 89+ 110-
row 169: | 44+ 45+ 63- 64- 87+ 89+ 90- 110-
row 168: | 44+ 46+ 62- 64- 87+ 90- 90+ 110-
row 167: | 44+ 47+ 62- 64- 87+ 110-
row 166: | 44+ 48+ 61- 64- 87+ 109-
row 165: | 44+ 49+ 59- 64- 87+ 109-
row 164: | 44+ 51+ 57- 64- 86+ 109-
row 163: | 44+ 64- 86+ 109-
row 162: | 44+ 64- 85+ 108-
row 161: | 44+ 64- 85+ 108-
row 160: | 44+ 65- 85+ 108-
row 159: | 44+ 65- 84+ 108-
row 158: | 45+ 65- 84+ 107-
row 157: | 45+ 65- 83+ 107-
row 156: | 45+ 65- 83+ 107-
row 155: | 45+ 65- 82+ 106-
row 154: | 45+ 65- 82+ 104+ 106- 137+ 140+ 146- 148- 170-
row 153: | 45+ 65- 81+ 102+ 106- 135+ 137+ 148- 150- 172-
row 152: | 45+ 65- 80+ 101+ 105- 134+ 136+ 149- 152- 174-
row 151: | 45+ 65- 80+ 100+ 105- 133+ 135+ 150- 153- 175-
row 150: | 45+ 65- 79+ 99+ 104- 132+ 134+ 151- 153- 175-
row 149: | 45+ 66- 78+ 98+ 104- 131+ 134+ 152- 154- 176-
row 148: | 45+ 66- 78+ 98+ 103- 131+ 133+ 152- 154- 176-
row 147: | 46+ 66- 77+ 97+ 103- 130+ 133+ 152- 155- 177-
row 146: | 46+ 66- 76+ 97+ 102- 130+ 133+ 153- 155- 177-
row 145: | 46+ 66- 76+ 97+ 102- 130+ 133+ 153- 155- 177-
row 144: | 46+ 66- 75+ 97+ 101- 129+ 133+ 153- 155- 177-
row 143: | 46+ 66- 74+ 97+ 101- 129+ 133+ 153- 155- 177-
row 142: | 46+ 67- 74+ 97+ 100- 128+ 133+ 152- 155- 177-
row 141: | 46+ 67- 73+ 97+ 99- 128+ 133+ 152- 154- 177-
row 140: | 47+ 67- 72+ 97+ 99- 128+ 134+ 152- 154- 177-
row 139: | 47+ 67- 71+ 98- 98+ 127+ 134+ 151- 154- 176-
row 138: | 47+ 67- 70+ 98- 98+ 127+ 135+ 150- 153- 176-
row 137: | 47+ 67- 70+ 97- 99+ 127+ 136+ 149- 153- 175-
row 136: | 47+ 68- 69+ 96- 100+ 126+ 137+ 148- 153- 175-
row 135: | 47+ 68- 68+ 96- 101+ 126+ 138+ 146- 152- 174-
row 134: | 48+ 67+ 68- 95- 102+ 126+ 139+ 145- 152- 172-
row 133: | 48+ 66+ 68- 94- 104+ 125+ 141+ 142- 151- 170-
row 132: | 48+ 65+ 68- 94- 125+ 151-
row 131: | 48+ 65+ 69- 93- 124+ 151-
row 130: | 48+ 64+ 69- 92- 124+ 150-
row 129: | 49+ 63+ 69- 91- 124+ 150-
row 128: | 49+ 62+ 69- 91- 123+ 150-
row 127: | 49+ 61+ 70- 90- 123+ 149-
row 126: | 49+ 60+ 70- 89- 123+ 149-
row 125: | 50+ 59+ 70- 88- 122+ 149-
row 124: | 50+ 58+ 70- 87- 122+ 148-
row 123: | 50+ 58+ 71- 87- 121+ 148-
row 122: | 50+ 57+ 71- 86- 121+ 147-
row 121: | 51+ 56+ 71- 85- 121+ 147-
row 120: | 51+ 55+ 71- 84- 120+ 147-
row 119: | 51+ 54+ 72- 83- 120+ 146-
row 118: | 51+ 53+ 72- 82- 120+ 146-
row 117: | 52+ 52+ 72- 82- 119+ 146-
row 116: | 51+ 52+ 73- 81- 119+ 145-
row 115: | 50+ 52+ 73- 80- 119+ 145-
row 114: | 49+ 52+ 73- 79- 118+ 144-
row 113: | 48+ 53+ 74- 78- 118+ 144-
row 112: | 47+ 53+ 74- 77- 117+ 144-
row 111: | 46+ 53+ 74- 76- 117+ 143-
row 110: | 46+ 54+ 75- 75- 117+ 143-
row 109: | 45+ 54+ 74- 75- 116+ 143-
row 108: | 44+ 54+ 73- 75- 116+ 142-
row 107: | 43+ 55+ 73- 76- 116+ 142-
row 106: | 42+ 55+ 72- 76- 115+ 142-
row 105: | 41+ 55+ 71- 76- 115+ 141-
row 104: | 40+ 56+ 70- 77- 114+ 141-
row 103: | 39+ 56+ 69- 77- 114+ 140-
row 102: | 38+ 56+ 68- 78- 114+ 140-
row 101: | 37+ 57+ 67- 78- 113+ 140-
row 100: | 36+ 57+ 66- 78- 113+ 139-
row 99: | 35+ 57+ 65- 79- 113+ 139-
row 98: | 35+ 58+ 64- 79- 112+ 139-
row 97: | 34+ 58+ 63- 80- 112+ 138-
row 96: | 33+ 58+ 62- 80- 111+ 138-
row 95: | 32+ 59+ 62- 81- 111+ 138-
row 94: | 31+ 59+ 61- 81- 111+ 137-
row 93: | 30+ 60- 60+ 82- 110+ 137-
row 92: | 29+ 59- 60+ 82- 110+ 136-
row 91: | 28+ 58- 60+ 82- 109+ 136-
row 90: | 27+ 57- 61+ 83- 109+ 136-
row 89: | 26+ 56- 61+ 83- 109+ 135-
row 88: | 25+ 55- 62+ 84- 108+ 135-
row 87: | 24+ 54- 62+ 84- 108+ 135-
row 86: | 23+ 53- 63+ 85- 107+ 134-
row 85: | 23+ 52- 63+ 85- 107+ 134-
row 84: | 22+ 51- 64+ 86- 107+ 133-
row 83: | 21+ 50- 64+ 86- 106+ 133-
row 82: | 20+ 50- 64+ 87- 106+ 133-
row 81: | 20+ 49- 65+ 88- 105+ 132-
row 80: | 19+ 48- 65+ 88- 105+ 132-
row 79: | 18+ 47- 66+ 89- 105+ 131-
row 78: | 18+ 46- 66+ 89- 104+ 131-
row 77: | 17+ 45- 67+ 90- 104+ 131-
row 76: | 17+ 44- 67+ 90- 103+ 130-
row 75: | 16+ 43- 68+ 91- 103+ 130-
row 74: | 16+ 42- 68+ 91- 102+ 129-
row 73: | 15+ 42- 69+ 92- 102+ 129-
row 72: | 15+ 41- 70+ 92- 102+ 129-
row 71: | 14+ 40- 70+ 93- 101+ 128-
row 70: | 14+ 40- 71+ 93- 101+ 128-
row 69: | 14+ 39- 71+ 94- 100+ 127-
row 68: | 13+ 39- 72+ 95- 100+ 127-
row 67: | 13+ 38- 72+ 95- 99+ 126-
row 66: | 13+ 38- 73+ 96- 99+ 126-
row 65: | 12+ 38- 73+ 96- 98+ 126-
row 64: | 12+ 37- 74+ 97- 98+ 125-
row 63: | 12+ 37- 74+ 97- 97+ 125-
row 62: | 12+ 37- 75+ 97+ 98- 124-
row 61: | 11+ 36- 75+ 96+ 98- 124-
row 60: | 11+ 36- 76+ 96+ 99- 123-
row 59: | 11+ 36- 77+ 95+ 100- 123-
row 58: | 11+ 36- 77+ 95+ 100- 122-
row 57: | 11+ 36- 78+ 94+ 101- 122-
row 56: | 10+ 35- 78+ 94+ 101- 121-
row 55: | 10+ 33- 33+ 35- 79+ 93+ 102- 121-
row 54: | 10+ 33+ 34- 35- 79+ 93+ 103- 121-
row 53: | 10+ 34- 34+ 35- 80+ 92+ 103- 120-
row 52: | 10+ 34+ 35- 35- 80+ 92+ 104- 120-
row 51: | 10+ 35- 35- 35+ 81+ 91+ 104- 119-
row 50: | 10+ 35- 35- 35+ 82+ 91+ 105- 119-
row 49: | 10+ 35- 35- 35+ 82+ 90+ 106- 118-
row 48: | 10+ 34+ 35- 35- 83+ 90+ 106- 118- 158+ 169-
row 47: | 10+ 34+ 35- 35- 83+ 89+ 107- 117- 156+ 171-
row 46: | 10+ 34- 34+ 35- 84+ 88+ 108- 116- 155+ 173-
row 45: | 10+ 34- 34+ 35- 85+ 88+ 108- 116- 154+ 174-
row 44: | 10+ 33+ 34- 35- 85+ 87+ 109- 115- 153+ 174-
row 43: | 10+ 35- 86+ 87+ 110- 115- 152+ 175-
row 42: | 10+ 36- 86+ 86+ 110- 114- 152+ 175-
row 41: | 10+ 36- 85+ 87+ 111- 114- 151+ 176-
row 40: | 10+ 36- 85+ 88+ 112- 113- 151+ 176-
row 39: | 11+ 36- 84+ 88+ 113- 113- 151+ 176-
row 38: | 11+ 36- 83+ 89+ 112- 113- 151+ 176-
row 37: | 11+ 36- 82+ 89+ 111- 114- 151+ 176-
row 36: | 11+ 37- 82+ 90+ 111- 115- 151+ 176-
row 35: | 11+ 37- 81+ 91+ 110- 116- 151+ 176-
row 34: | 12+ 37- 80+ 91+ 110- 117- 151+ 176-
row 33: | 12+ 38- 79+ 92+ 109- 117- 151+ 176-
row 32: | 12+ 38- 79+ 93+ 108- 118- 151+ 176-
row 31: | 12+ 38- 78+ 93+ 108- 116+ 118- 119- 150+ 176-
row 30: | 13+ 39- 77+ 78+ 81- 94+ 107- 118+ 120- 120- 150+ 175-
row 29: | 13+ 39- 76+ 76+ 79- 95+ 106- 120+ 121- 121- 150+ 175-
row 28: | 13+ 40- 75+ 75+ 76- 96+ 106- 122- 122- 122+ 150+ 175-
row 27: | 14+ 40- 74- 74+ 74+ 96+ 105- 123- 123- 123+ 150+ 175-
row 26: | 14+ 41- 73+ 73+ 74- 97+ 104- 123- 123+ 124- 149+ 175-
row 25: | 14+ 42- 72+ 73- 73+ 98+ 103- 123+ 124- 125- 149+ 174-
row 24: | 15+ 40+ 41- 42- 70+ 72+ 73- 98+ 103- 124- 124+ 127- 149+ 174-
row 23: | 15+ 41+ 43- 43- 69+ 72+ 73- 99+ 102- 124- 124+ 128- 148+ 174-
row 22: | 15+ 43+ 44- 44- 68+ 72- 72+ 100+ 101- 129- 148+ 174-
row 21: | 16+ 45- 45- 45+ 66+ 72- 72+ 100- 101+ 131- 147+ 149+ 152- 173-
row 20: | 16+ 45+ 46- 46- 64+ 72- 72+ 100- 102+ 133- 147+ 147+ 150- 173-
row 19: | 17+ 46- 46+ 48- 62+ 99- 103+ 135- 146+ 146+ 147- 173-
row 18: | 17+ 46+ 47- 50- 59+ 98- 103+ 138- 144+ 145- 145+ 172-
row 17: | 18+ 47- 47+ 51+ 57- 97- 104+ 139+ 144+ 145- 145- 172-
row 16: | 19+ 47- 47+ 49+ 59- 96- 105+ 137+ 144- 144+ 147- 171-
row 15: | 19+ 47+ 61- 95- 106+ 136+ 143+ 144- 148- 171-
row 14: | 20+ 46+ 62- 94- 107+ 135+ 143+ 144- 149- 170-
row 13: | 21+ 46+ 62- 93- 108+ 134+ 143- 143+ 150- 170-
row 12: | 21+ 45+ 63- 92- 109+ 133+ 143- 143+ 151- 169-
row 11: | 22+ 45+ 63- 91- 110+ 133+ 143- 143+ 151- 169-
row 10: | 23+ 44+ 64- 90- 111+ 132+ 152- 168-
row 9: | 24+ 44+ 64- 89- 112+ 132+ 152- 167-
row 8: | 25+ 44+ 64- 88- 113+ 132+ 152- 167-
row 7: | 26+ 44+ 64- 86- 114+ 132+ 152- 166-
row 6: | 27+ 44+ 64- 85- 116+ 132+ 152- 165-
row 5: | 28+ 44+ 64- 84- 117+ 132+ 152- 164-
row 4: | 29+ 44+ 64- 82- 118+ 132+ 152- 163-
row 3: | 31+ 44+ 64- 80- 120+ 132+ 152- 162-
row 2: | 32+ 45+ 63- 79- 121+ 133+ 151- 161-
row 1: | 34+ 45+ 63- 77- 123+ 133+ 151- 160-
row 0: | 35+ 46+ 62- 75- 125+ 134+ 150- 158-
row -1: | 37+ 47+ 62- 72- 127+ 135+ 150- 156-
row -2: | 40+ 48+ 61- 69- 129+ 136+ 149- 154-
row -3: | 43+ 49+ 59- 66- 132+ 137+ 147- 151-
row -4: | 47+ 51+ 57- 61- 136+ 139+ 145- 148-
{if}
{(2)>(0)}
{true}
makebox(TEXT0)->for.y=0,asc_height,body_height,x_height,bar_height,-desc_depth,
-body_depth:(TEXT0)(↑(l,y),↑(r,y));endfor.for.x=l,r:(TEXT0)(↑(x,-body_depth),↑(
x,body_height));endfor.for.x=u*(1+floor(l/u))step.u.until.r-1:(TEXT0)(↑(x,-body
_depth),↑(x,body_height));endfor.if.charic≠0:(TEXT0)((r+charic*pt,h!),(r+charic
*pt,0.5h!));fi
(TEXT0)<-screenrule
{for}
{-(80)}
{-(110)}
{loop value=0}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,0)
{begingroup}
{((0,0))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,0)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,0)
{begingroup}
{((189,0))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,0)
{addto}
Path at line 39, before choices:
(0,0){curl 1}
..{curl 1}(189,0)
Path at line 39, after choices:
(0,0)..controls (63,0) and (126,0)
..(189,0)
Path at line 39, before subdivision into octants:
(0,0)..controls (63,0) and (126,0)
..(189,0)..controls (126,0) and (63,0)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,0.5) % beginning in octant `En'
..controls (63,0.5) and (126,0.5)
..(189,0.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,0.5) and (63,0.5)
..(0,0.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,0) to (189.5,0)
@ transition line 0, from (-0.5,0) to (0.5,0)
@ transition line 1, from (189.5,0) to (189.5,0)
@ Octant Ne (1 offset), from (189.5,0) to (189.5,1)
@ transition line 2, from (189.5,0) to (189.5,0)
@ transition line 1, from (189.5,0) to (189.5,1)
(190,0)
@ Octant Nw (0 offsets), from (189.5,1) to (189.5,1)
@ transition line 0, from (189.5,1) to (189.5,1)
@ Octant Wn (0 offsets), from (189.5,1) to (189.5,1)
@ transition line 1, from (189.5,1) to (189.5,1)
@ Octant Ws (1 offset), from (189.5,1) to (-0.5,1)
@ transition line 0, from (189.5,1) to (188.5,1)
@ transition line 1, from (-0.5,1) to (-0.5,1)
@ Octant Sw (1 offset), from (-0.5,1) to (-0.5,0)
@ transition line 2, from (-0.5,1) to (-0.5,1)
@ transition line 1, from (-0.5,1) to (-0.5,0)
(190,1)(0,1)
@ Octant Se (0 offsets), from (-0.5,0) to (-0.5,0)
@ transition line 0, from (-0.5,0) to (-0.5,0)
@ Octant Es (0 offsets), from (-0.5,0) to (-0.5,0)
@ transition line 1, from (-0.5,0) to (-0.5,0)
(0,0).
{[repeat the loop]}
{loop value=220}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,220)
{begingroup}
{((0,220))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,220)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,220)
{begingroup}
{((189,220))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,220)
{addto}
Path at line 39, before choices:
(0,220){curl 1}
..{curl 1}(189,220)
Path at line 39, after choices:
(0,220)..controls (63,220) and (126,220)
..(189,220)
Path at line 39, before subdivision into octants:
(0,220)..controls (63,220) and (126,220)
..(189,220)..controls (126,220) and (63,220)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,220.5) % beginning in octant `En'
..controls (63,220.5) and (126,220.5)
..(189,220.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,220.5) and (63,220.5)
..(0,220.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,220) to (189.5,220)
@ transition line 0, from (-0.5,220) to (0.5,220)
@ transition line 1, from (189.5,220) to (189.5,220)
@ Octant Ne (1 offset), from (189.5,220) to (189.5,221)
@ transition line 2, from (189.5,220) to (189.5,220)
@ transition line 1, from (189.5,220) to (189.5,221)
(190,220)
@ Octant Nw (0 offsets), from (189.5,221) to (189.5,221)
@ transition line 0, from (189.5,221) to (189.5,221)
@ Octant Wn (0 offsets), from (189.5,221) to (189.5,221)
@ transition line 1, from (189.5,221) to (189.5,221)
@ Octant Ws (1 offset), from (189.5,221) to (-0.5,221)
@ transition line 0, from (189.5,221) to (188.5,221)
@ transition line 1, from (-0.5,221) to (-0.5,221)
@ Octant Sw (1 offset), from (-0.5,221) to (-0.5,220)
@ transition line 2, from (-0.5,221) to (-0.5,221)
@ transition line 1, from (-0.5,221) to (-0.5,220)
(190,221)(0,221)
@ Octant Se (0 offsets), from (-0.5,220) to (-0.5,220)
@ transition line 0, from (-0.5,220) to (-0.5,220)
@ Octant Es (0 offsets), from (-0.5,220) to (-0.5,220)
@ transition line 1, from (-0.5,220) to (-0.5,220)
(0,220).
{[repeat the loop]}
{loop value=250}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,250)
{begingroup}
{((0,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,250)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,250)
{begingroup}
{((189,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,250)
{addto}
Path at line 39, before choices:
(0,250){curl 1}
..{curl 1}(189,250)
Path at line 39, after choices:
(0,250)..controls (63,250) and (126,250)
..(189,250)
Path at line 39, before subdivision into octants:
(0,250)..controls (63,250) and (126,250)
..(189,250)..controls (126,250) and (63,250)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,250.5) % beginning in octant `En'
..controls (63,250.5) and (126,250.5)
..(189,250.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,250.5) and (63,250.5)
..(0,250.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,250) to (189.5,250)
@ transition line 0, from (-0.5,250) to (0.5,250)
@ transition line 1, from (189.5,250) to (189.5,250)
@ Octant Ne (1 offset), from (189.5,250) to (189.5,251)
@ transition line 2, from (189.5,250) to (189.5,250)
@ transition line 1, from (189.5,250) to (189.5,251)
(190,250)
@ Octant Nw (0 offsets), from (189.5,251) to (189.5,251)
@ transition line 0, from (189.5,251) to (189.5,251)
@ Octant Wn (0 offsets), from (189.5,251) to (189.5,251)
@ transition line 1, from (189.5,251) to (189.5,251)
@ Octant Ws (1 offset), from (189.5,251) to (-0.5,251)
@ transition line 0, from (189.5,251) to (188.5,251)
@ transition line 1, from (-0.5,251) to (-0.5,251)
@ Octant Sw (1 offset), from (-0.5,251) to (-0.5,250)
@ transition line 2, from (-0.5,251) to (-0.5,251)
@ transition line 1, from (-0.5,251) to (-0.5,250)
(190,251)(0,251)
@ Octant Se (0 offsets), from (-0.5,250) to (-0.5,250)
@ transition line 0, from (-0.5,250) to (-0.5,250)
@ Octant Es (0 offsets), from (-0.5,250) to (-0.5,250)
@ transition line 1, from (-0.5,250) to (-0.5,250)
(0,250).
{[repeat the loop]}
{loop value=155}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,155)
{begingroup}
{((0,155))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,155)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,155)
{begingroup}
{((189,155))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,155)
{addto}
Path at line 39, before choices:
(0,155){curl 1}
..{curl 1}(189,155)
Path at line 39, after choices:
(0,155)..controls (63,155) and (126,155)
..(189,155)
Path at line 39, before subdivision into octants:
(0,155)..controls (63,155) and (126,155)
..(189,155)..controls (126,155) and (63,155)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,155.5) % beginning in octant `En'
..controls (63,155.5) and (126,155.5)
..(189,155.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,155.5) and (63,155.5)
..(0,155.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,155) to (189.5,155)
@ transition line 0, from (-0.5,155) to (0.5,155)
@ transition line 1, from (189.5,155) to (189.5,155)
@ Octant Ne (1 offset), from (189.5,155) to (189.5,156)
@ transition line 2, from (189.5,155) to (189.5,155)
@ transition line 1, from (189.5,155) to (189.5,156)
(190,155)
@ Octant Nw (0 offsets), from (189.5,156) to (189.5,156)
@ transition line 0, from (189.5,156) to (189.5,156)
@ Octant Wn (0 offsets), from (189.5,156) to (189.5,156)
@ transition line 1, from (189.5,156) to (189.5,156)
@ Octant Ws (1 offset), from (189.5,156) to (-0.5,156)
@ transition line 0, from (189.5,156) to (188.5,156)
@ transition line 1, from (-0.5,156) to (-0.5,156)
@ Octant Sw (1 offset), from (-0.5,156) to (-0.5,155)
@ transition line 2, from (-0.5,156) to (-0.5,156)
@ transition line 1, from (-0.5,156) to (-0.5,155)
(190,156)(0,156)
@ Octant Se (0 offsets), from (-0.5,155) to (-0.5,155)
@ transition line 0, from (-0.5,155) to (-0.5,155)
@ Octant Es (0 offsets), from (-0.5,155) to (-0.5,155)
@ transition line 1, from (-0.5,155) to (-0.5,155)
(0,155).
{[repeat the loop]}
{loop value=78.99994}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,78.99994)
{begingroup}
{((0,78.99994))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,78.99994)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,78.99994)
{begingroup}
{((189,78.99994))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,78.99994)
{addto}
Path at line 39, before choices:
(0,78.99994){curl 1}
..{curl 1}(189,78.99994)
Path at line 39, after choices:
(0,78.99994)..controls (63,78.99994) and (126,78.99994)
..(189,78.99994)
Path at line 39, before subdivision into octants:
(0,78.99994)..controls (63,78.99994) and (126,78.99994)
..(189,78.99994)..controls (126,78.99994) and (63,78.99994)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,78.5) % beginning in octant `En'
..controls (63,78.5) and (126,78.5)
..(189,78.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,78.5) and (63,78.5)
..(0,78.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,78) to (189.5,78)
@ transition line 0, from (-0.5,78) to (0.5,78)
@ transition line 1, from (189.5,78) to (189.5,78)
@ Octant Ne (1 offset), from (189.5,78) to (189.5,79)
@ transition line 2, from (189.5,78) to (189.5,78)
@ transition line 1, from (189.5,78) to (189.5,79)
(190,78)
@ Octant Nw (0 offsets), from (189.5,79) to (189.5,79)
@ transition line 0, from (189.5,79) to (189.5,79)
@ Octant Wn (0 offsets), from (189.5,79) to (189.5,79)
@ transition line 1, from (189.5,79) to (189.5,79)
@ Octant Ws (1 offset), from (189.5,79) to (-0.5,79)
@ transition line 0, from (189.5,79) to (188.5,79)
@ transition line 1, from (-0.5,79) to (-0.5,79)
@ Octant Sw (1 offset), from (-0.5,79) to (-0.5,78)
@ transition line 2, from (-0.5,79) to (-0.5,79)
@ transition line 1, from (-0.5,79) to (-0.5,78)
(190,79)(0,79)
@ Octant Se (0 offsets), from (-0.5,78) to (-0.5,78)
@ transition line 0, from (-0.5,78) to (-0.5,78)
@ Octant Es (0 offsets), from (-0.5,78) to (-0.5,78)
@ transition line 1, from (-0.5,78) to (-0.5,78)
(0,78).
{[repeat the loop]}
{loop value=-80}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,-80)
{begingroup}
{((0,-80))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-80)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,-80)
{begingroup}
{((189,-80))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,-80)
{addto}
Path at line 39, before choices:
(0,-80){curl 1}
..{curl 1}(189,-80)
Path at line 39, after choices:
(0,-80)..controls (63,-80) and (126,-80)
..(189,-80)
Path at line 39, before subdivision into octants:
(0,-80)..controls (63,-80) and (126,-80)
..(189,-80)..controls (126,-80) and (63,-80)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,-79.5) % beginning in octant `En'
..controls (63,-79.5) and (126,-79.5)
..(189,-79.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,-79.5) and (63,-79.5)
..(0,-79.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,-80) to (189.5,-80)
@ transition line 0, from (-0.5,-80) to (0.5,-80)
@ transition line 1, from (189.5,-80) to (189.5,-80)
@ Octant Ne (1 offset), from (189.5,-80) to (189.5,-79)
@ transition line 2, from (189.5,-80) to (189.5,-80)
@ transition line 1, from (189.5,-80) to (189.5,-79)
(190,-80)
@ Octant Nw (0 offsets), from (189.5,-79) to (189.5,-79)
@ transition line 0, from (189.5,-79) to (189.5,-79)
@ Octant Wn (0 offsets), from (189.5,-79) to (189.5,-79)
@ transition line 1, from (189.5,-79) to (189.5,-79)
@ Octant Ws (1 offset), from (189.5,-79) to (-0.5,-79)
@ transition line 0, from (189.5,-79) to (188.5,-79)
@ transition line 1, from (-0.5,-79) to (-0.5,-79)
@ Octant Sw (1 offset), from (-0.5,-79) to (-0.5,-80)
@ transition line 2, from (-0.5,-79) to (-0.5,-79)
@ transition line 1, from (-0.5,-79) to (-0.5,-80)
(190,-79)(0,-79)
@ Octant Se (0 offsets), from (-0.5,-80) to (-0.5,-80)
@ transition line 0, from (-0.5,-80) to (-0.5,-80)
@ Octant Es (0 offsets), from (-0.5,-80) to (-0.5,-80)
@ transition line 1, from (-0.5,-80) to (-0.5,-80)
(0,-80).
{[repeat the loop]}
{loop value=-110}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,-110)
{begingroup}
{((0,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,-110)
{begingroup}
{((189,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,-110)
{addto}
Path at line 39, before choices:
(0,-110){curl 1}
..{curl 1}(189,-110)
Path at line 39, after choices:
(0,-110)..controls (63,-110) and (126,-110)
..(189,-110)
Path at line 39, before subdivision into octants:
(0,-110)..controls (63,-110) and (126,-110)
..(189,-110)..controls (126,-110) and (63,-110)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0,-109.5) % beginning in octant `En'
..controls (63,-109.5) and (126,-109.5)
..(189,-109.5) % segment 0
% entering octant `Ne'
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
..controls (126,-109.5) and (63,-109.5)
..(0,-109.5) % segment 1
% entering octant `Sw'
% entering octant `Se'
% entering octant `Es'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant En (1 offset), from (-0.5,-110) to (189.5,-110)
@ transition line 0, from (-0.5,-110) to (0.5,-110)
@ transition line 1, from (189.5,-110) to (189.5,-110)
@ Octant Ne (1 offset), from (189.5,-110) to (189.5,-109)
@ transition line 2, from (189.5,-110) to (189.5,-110)
@ transition line 1, from (189.5,-110) to (189.5,-109)
(190,-110)
@ Octant Nw (0 offsets), from (189.5,-109) to (189.5,-109)
@ transition line 0, from (189.5,-109) to (189.5,-109)
@ Octant Wn (0 offsets), from (189.5,-109) to (189.5,-109)
@ transition line 1, from (189.5,-109) to (189.5,-109)
@ Octant Ws (1 offset), from (189.5,-109) to (-0.5,-109)
@ transition line 0, from (189.5,-109) to (188.5,-109)
@ transition line 1, from (-0.5,-109) to (-0.5,-109)
@ Octant Sw (1 offset), from (-0.5,-109) to (-0.5,-110)
@ transition line 2, from (-0.5,-109) to (-0.5,-109)
@ transition line 1, from (-0.5,-109) to (-0.5,-110)
(190,-109)(0,-109)
@ Octant Se (0 offsets), from (-0.5,-110) to (-0.5,-110)
@ transition line 0, from (-0.5,-110) to (-0.5,-110)
@ Octant Es (0 offsets), from (-0.5,-110) to (-0.5,-110)
@ transition line 1, from (-0.5,-110) to (-0.5,-110)
(0,-110).
{[repeat the loop]}
{for}
{loop value=0}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(0,-110)
{begingroup}
{((0,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(0,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(0,250)
{begingroup}
{((0,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(0,250)
{addto}
Path at line 39, before choices:
(0,-110){curl 1}
..{curl 1}(0,250)
Path at line 39, after choices:
(0,-110)..controls (0,10) and (0,130)
..(0,250)
Path at line 39, before subdivision into octants:
(0,-110)..controls (0,10) and (0,130)
..(0,250)..controls (0,130) and (0,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(0.5,-110) % beginning in octant `Ne'
..controls (0.5,10) and (0.5,130)
..(0.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (0.5,130) and (0.5,10)
..(0.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (1,-110.5) to (1,250.5)
@ transition line 2, from (1,-110.5) to (1,-110.5)
@ transition line 1, from (1,249.5) to (1,250.5)
(1,-110)
@ Octant Nw (0 offsets), from (1,250.5) to (1,250.5)
@ transition line 0, from (1,250.5) to (1,250.5)
@ Octant Wn (0 offsets), from (1,250.5) to (1,250.5)
@ transition line 1, from (1,250.5) to (1,250.5)
@ Octant Ws (1 offset), from (1,250.5) to (0,250.5)
@ transition line 0, from (1,250.5) to (0,250.5)
@ transition line 1, from (0,250.5) to (0,250.5)
@ Octant Sw (1 offset), from (0,250.5) to (0,-110.5)
@ transition line 2, from (0,250.5) to (0,250.5)
@ transition line 1, from (0,-109.5) to (0,-110.5)
(1,251)(0,251)
@ Octant Se (0 offsets), from (0,-110.5) to (0,-110.5)
@ transition line 0, from (0,-110.5) to (0,-110.5)
@ Octant Es (0 offsets), from (0,-110.5) to (0,-110.5)
@ transition line 1, from (0,-110.5) to (0,-110.5)
@ Octant En (1 offset), from (0,-110.5) to (1,-110.5)
@ transition line 0, from (0,-110.5) to (1,-110.5)
@ transition line 1, from (1,-110.5) to (1,-110.5)
(0,-110).
{[repeat the loop]}
{loop value=189}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(189,-110)
{begingroup}
{((189,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(189,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(189,250)
{begingroup}
{((189,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(189,250)
{addto}
Path at line 39, before choices:
(189,-110){curl 1}
..{curl 1}(189,250)
Path at line 39, after choices:
(189,-110)..controls (189,10) and (189,130)
..(189,250)
Path at line 39, before subdivision into octants:
(189,-110)..controls (189,10) and (189,130)
..(189,250)..controls (189,130) and (189,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(189.5,-110) % beginning in octant `Ne'
..controls (189.5,10) and (189.5,130)
..(189.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (189.5,130) and (189.5,10)
..(189.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (190,-110.5) to (190,250.5)
@ transition line 2, from (190,-110.5) to (190,-110.5)
@ transition line 1, from (190,249.5) to (190,250.5)
(190,-110)
@ Octant Nw (0 offsets), from (190,250.5) to (190,250.5)
@ transition line 0, from (190,250.5) to (190,250.5)
@ Octant Wn (0 offsets), from (190,250.5) to (190,250.5)
@ transition line 1, from (190,250.5) to (190,250.5)
@ Octant Ws (1 offset), from (190,250.5) to (189,250.5)
@ transition line 0, from (190,250.5) to (189,250.5)
@ transition line 1, from (189,250.5) to (189,250.5)
@ Octant Sw (1 offset), from (189,250.5) to (189,-110.5)
@ transition line 2, from (189,250.5) to (189,250.5)
@ transition line 1, from (189,-109.5) to (189,-110.5)
(190,251)(189,251)
@ Octant Se (0 offsets), from (189,-110.5) to (189,-110.5)
@ transition line 0, from (189,-110.5) to (189,-110.5)
@ Octant Es (0 offsets), from (189,-110.5) to (189,-110.5)
@ transition line 1, from (189,-110.5) to (189,-110.5)
@ Octant En (1 offset), from (189,-110.5) to (190,-110.5)
@ transition line 0, from (189,-110.5) to (190,-110.5)
@ transition line 1, from (190,-110.5) to (190,-110.5)
(189,-110).
{[repeat the loop]}
{for}
{(0)/(13.5)}
{floor(0)}
{(1)+(0)}
{(13.5)*(1)}
{(189)-(1)}
{loop value=13.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(13.5,-110)
{begingroup}
{((13.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(13.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(13.5,250)
{begingroup}
{((13.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(13.5,250)
{addto}
Path at line 39, before choices:
(13.5,-110){curl 1}
..{curl 1}(13.5,250)
Path at line 39, after choices:
(13.5,-110)..controls (13.5,10) and (13.5,130)
..(13.5,250)
Path at line 39, before subdivision into octants:
(13.5,-110)..controls (13.5,10) and (13.5,130)
..(13.5,250)..controls (13.5,130) and (13.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(13.5,-110) % beginning in octant `Ne'
..controls (13.5,10) and (13.5,130)
..(13.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (13.5,130) and (13.5,10)
..(13.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (14,-110.5) to (14,250.5)
@ transition line 2, from (14,-110.5) to (14,-110.5)
@ transition line 1, from (14,249.5) to (14,250.5)
(14,-110)
@ Octant Nw (0 offsets), from (14,250.5) to (14,250.5)
@ transition line 0, from (14,250.5) to (14,250.5)
@ Octant Wn (0 offsets), from (14,250.5) to (14,250.5)
@ transition line 1, from (14,250.5) to (14,250.5)
@ Octant Ws (1 offset), from (14,250.5) to (13,250.5)
@ transition line 0, from (14,250.5) to (13,250.5)
@ transition line 1, from (13,250.5) to (13,250.5)
@ Octant Sw (1 offset), from (13,250.5) to (13,-110.5)
@ transition line 2, from (13,250.5) to (13,250.5)
@ transition line 1, from (13,-109.5) to (13,-110.5)
(14,251)(13,251)
@ Octant Se (0 offsets), from (13,-110.5) to (13,-110.5)
@ transition line 0, from (13,-110.5) to (13,-110.5)
@ Octant Es (0 offsets), from (13,-110.5) to (13,-110.5)
@ transition line 1, from (13,-110.5) to (13,-110.5)
@ Octant En (1 offset), from (13,-110.5) to (14,-110.5)
@ transition line 0, from (13,-110.5) to (14,-110.5)
@ transition line 1, from (14,-110.5) to (14,-110.5)
(13,-110).
{[repeat the loop]}
{loop value=27}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(27,-110)
{begingroup}
{((27,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(27,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(27,250)
{begingroup}
{((27,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(27,250)
{addto}
Path at line 39, before choices:
(27,-110){curl 1}
..{curl 1}(27,250)
Path at line 39, after choices:
(27,-110)..controls (27,10) and (27,130)
..(27,250)
Path at line 39, before subdivision into octants:
(27,-110)..controls (27,10) and (27,130)
..(27,250)..controls (27,130) and (27,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(27.5,-110) % beginning in octant `Ne'
..controls (27.5,10) and (27.5,130)
..(27.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (27.5,130) and (27.5,10)
..(27.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (28,-110.5) to (28,250.5)
@ transition line 2, from (28,-110.5) to (28,-110.5)
@ transition line 1, from (28,249.5) to (28,250.5)
(28,-110)
@ Octant Nw (0 offsets), from (28,250.5) to (28,250.5)
@ transition line 0, from (28,250.5) to (28,250.5)
@ Octant Wn (0 offsets), from (28,250.5) to (28,250.5)
@ transition line 1, from (28,250.5) to (28,250.5)
@ Octant Ws (1 offset), from (28,250.5) to (27,250.5)
@ transition line 0, from (28,250.5) to (27,250.5)
@ transition line 1, from (27,250.5) to (27,250.5)
@ Octant Sw (1 offset), from (27,250.5) to (27,-110.5)
@ transition line 2, from (27,250.5) to (27,250.5)
@ transition line 1, from (27,-109.5) to (27,-110.5)
(28,251)(27,251)
@ Octant Se (0 offsets), from (27,-110.5) to (27,-110.5)
@ transition line 0, from (27,-110.5) to (27,-110.5)
@ Octant Es (0 offsets), from (27,-110.5) to (27,-110.5)
@ transition line 1, from (27,-110.5) to (27,-110.5)
@ Octant En (1 offset), from (27,-110.5) to (28,-110.5)
@ transition line 0, from (27,-110.5) to (28,-110.5)
@ transition line 1, from (28,-110.5) to (28,-110.5)
(27,-110).
{[repeat the loop]}
{loop value=40.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(40.5,-110)
{begingroup}
{((40.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(40.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(40.5,250)
{begingroup}
{((40.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(40.5,250)
{addto}
Path at line 39, before choices:
(40.5,-110){curl 1}
..{curl 1}(40.5,250)
Path at line 39, after choices:
(40.5,-110)..controls (40.5,10) and (40.5,130)
..(40.5,250)
Path at line 39, before subdivision into octants:
(40.5,-110)..controls (40.5,10) and (40.5,130)
..(40.5,250)..controls (40.5,130) and (40.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(40.5,-110) % beginning in octant `Ne'
..controls (40.5,10) and (40.5,130)
..(40.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (40.5,130) and (40.5,10)
..(40.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (41,-110.5) to (41,250.5)
@ transition line 2, from (41,-110.5) to (41,-110.5)
@ transition line 1, from (41,249.5) to (41,250.5)
(41,-110)
@ Octant Nw (0 offsets), from (41,250.5) to (41,250.5)
@ transition line 0, from (41,250.5) to (41,250.5)
@ Octant Wn (0 offsets), from (41,250.5) to (41,250.5)
@ transition line 1, from (41,250.5) to (41,250.5)
@ Octant Ws (1 offset), from (41,250.5) to (40,250.5)
@ transition line 0, from (41,250.5) to (40,250.5)
@ transition line 1, from (40,250.5) to (40,250.5)
@ Octant Sw (1 offset), from (40,250.5) to (40,-110.5)
@ transition line 2, from (40,250.5) to (40,250.5)
@ transition line 1, from (40,-109.5) to (40,-110.5)
(41,251)(40,251)
@ Octant Se (0 offsets), from (40,-110.5) to (40,-110.5)
@ transition line 0, from (40,-110.5) to (40,-110.5)
@ Octant Es (0 offsets), from (40,-110.5) to (40,-110.5)
@ transition line 1, from (40,-110.5) to (40,-110.5)
@ Octant En (1 offset), from (40,-110.5) to (41,-110.5)
@ transition line 0, from (40,-110.5) to (41,-110.5)
@ transition line 1, from (41,-110.5) to (41,-110.5)
(40,-110).
{[repeat the loop]}
{loop value=54}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(54,-110)
{begingroup}
{((54,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(54,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(54,250)
{begingroup}
{((54,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(54,250)
{addto}
Path at line 39, before choices:
(54,-110){curl 1}
..{curl 1}(54,250)
Path at line 39, after choices:
(54,-110)..controls (54,10) and (54,130)
..(54,250)
Path at line 39, before subdivision into octants:
(54,-110)..controls (54,10) and (54,130)
..(54,250)..controls (54,130) and (54,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(54.5,-110) % beginning in octant `Ne'
..controls (54.5,10) and (54.5,130)
..(54.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (54.5,130) and (54.5,10)
..(54.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (55,-110.5) to (55,250.5)
@ transition line 2, from (55,-110.5) to (55,-110.5)
@ transition line 1, from (55,249.5) to (55,250.5)
(55,-110)
@ Octant Nw (0 offsets), from (55,250.5) to (55,250.5)
@ transition line 0, from (55,250.5) to (55,250.5)
@ Octant Wn (0 offsets), from (55,250.5) to (55,250.5)
@ transition line 1, from (55,250.5) to (55,250.5)
@ Octant Ws (1 offset), from (55,250.5) to (54,250.5)
@ transition line 0, from (55,250.5) to (54,250.5)
@ transition line 1, from (54,250.5) to (54,250.5)
@ Octant Sw (1 offset), from (54,250.5) to (54,-110.5)
@ transition line 2, from (54,250.5) to (54,250.5)
@ transition line 1, from (54,-109.5) to (54,-110.5)
(55,251)(54,251)
@ Octant Se (0 offsets), from (54,-110.5) to (54,-110.5)
@ transition line 0, from (54,-110.5) to (54,-110.5)
@ Octant Es (0 offsets), from (54,-110.5) to (54,-110.5)
@ transition line 1, from (54,-110.5) to (54,-110.5)
@ Octant En (1 offset), from (54,-110.5) to (55,-110.5)
@ transition line 0, from (54,-110.5) to (55,-110.5)
@ transition line 1, from (55,-110.5) to (55,-110.5)
(54,-110).
{[repeat the loop]}
{loop value=67.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(67.5,-110)
{begingroup}
{((67.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(67.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(67.5,250)
{begingroup}
{((67.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(67.5,250)
{addto}
Path at line 39, before choices:
(67.5,-110){curl 1}
..{curl 1}(67.5,250)
Path at line 39, after choices:
(67.5,-110)..controls (67.5,10) and (67.5,130)
..(67.5,250)
Path at line 39, before subdivision into octants:
(67.5,-110)..controls (67.5,10) and (67.5,130)
..(67.5,250)..controls (67.5,130) and (67.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(67.5,-110) % beginning in octant `Ne'
..controls (67.5,10) and (67.5,130)
..(67.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (67.5,130) and (67.5,10)
..(67.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (68,-110.5) to (68,250.5)
@ transition line 2, from (68,-110.5) to (68,-110.5)
@ transition line 1, from (68,249.5) to (68,250.5)
(68,-110)
@ Octant Nw (0 offsets), from (68,250.5) to (68,250.5)
@ transition line 0, from (68,250.5) to (68,250.5)
@ Octant Wn (0 offsets), from (68,250.5) to (68,250.5)
@ transition line 1, from (68,250.5) to (68,250.5)
@ Octant Ws (1 offset), from (68,250.5) to (67,250.5)
@ transition line 0, from (68,250.5) to (67,250.5)
@ transition line 1, from (67,250.5) to (67,250.5)
@ Octant Sw (1 offset), from (67,250.5) to (67,-110.5)
@ transition line 2, from (67,250.5) to (67,250.5)
@ transition line 1, from (67,-109.5) to (67,-110.5)
(68,251)(67,251)
@ Octant Se (0 offsets), from (67,-110.5) to (67,-110.5)
@ transition line 0, from (67,-110.5) to (67,-110.5)
@ Octant Es (0 offsets), from (67,-110.5) to (67,-110.5)
@ transition line 1, from (67,-110.5) to (67,-110.5)
@ Octant En (1 offset), from (67,-110.5) to (68,-110.5)
@ transition line 0, from (67,-110.5) to (68,-110.5)
@ transition line 1, from (68,-110.5) to (68,-110.5)
(67,-110).
{[repeat the loop]}
{loop value=81}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(81,-110)
{begingroup}
{((81,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(81,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(81,250)
{begingroup}
{((81,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(81,250)
{addto}
Path at line 39, before choices:
(81,-110){curl 1}
..{curl 1}(81,250)
Path at line 39, after choices:
(81,-110)..controls (81,10) and (81,130)
..(81,250)
Path at line 39, before subdivision into octants:
(81,-110)..controls (81,10) and (81,130)
..(81,250)..controls (81,130) and (81,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(81.5,-110) % beginning in octant `Ne'
..controls (81.5,10) and (81.5,130)
..(81.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (81.5,130) and (81.5,10)
..(81.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (82,-110.5) to (82,250.5)
@ transition line 2, from (82,-110.5) to (82,-110.5)
@ transition line 1, from (82,249.5) to (82,250.5)
(82,-110)
@ Octant Nw (0 offsets), from (82,250.5) to (82,250.5)
@ transition line 0, from (82,250.5) to (82,250.5)
@ Octant Wn (0 offsets), from (82,250.5) to (82,250.5)
@ transition line 1, from (82,250.5) to (82,250.5)
@ Octant Ws (1 offset), from (82,250.5) to (81,250.5)
@ transition line 0, from (82,250.5) to (81,250.5)
@ transition line 1, from (81,250.5) to (81,250.5)
@ Octant Sw (1 offset), from (81,250.5) to (81,-110.5)
@ transition line 2, from (81,250.5) to (81,250.5)
@ transition line 1, from (81,-109.5) to (81,-110.5)
(82,251)(81,251)
@ Octant Se (0 offsets), from (81,-110.5) to (81,-110.5)
@ transition line 0, from (81,-110.5) to (81,-110.5)
@ Octant Es (0 offsets), from (81,-110.5) to (81,-110.5)
@ transition line 1, from (81,-110.5) to (81,-110.5)
@ Octant En (1 offset), from (81,-110.5) to (82,-110.5)
@ transition line 0, from (81,-110.5) to (82,-110.5)
@ transition line 1, from (82,-110.5) to (82,-110.5)
(81,-110).
{[repeat the loop]}
{loop value=94.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(94.5,-110)
{begingroup}
{((94.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(94.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(94.5,250)
{begingroup}
{((94.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(94.5,250)
{addto}
Path at line 39, before choices:
(94.5,-110){curl 1}
..{curl 1}(94.5,250)
Path at line 39, after choices:
(94.5,-110)..controls (94.5,10) and (94.5,130)
..(94.5,250)
Path at line 39, before subdivision into octants:
(94.5,-110)..controls (94.5,10) and (94.5,130)
..(94.5,250)..controls (94.5,130) and (94.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(94.5,-110) % beginning in octant `Ne'
..controls (94.5,10) and (94.5,130)
..(94.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (94.5,130) and (94.5,10)
..(94.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (95,-110.5) to (95,250.5)
@ transition line 2, from (95,-110.5) to (95,-110.5)
@ transition line 1, from (95,249.5) to (95,250.5)
(95,-110)
@ Octant Nw (0 offsets), from (95,250.5) to (95,250.5)
@ transition line 0, from (95,250.5) to (95,250.5)
@ Octant Wn (0 offsets), from (95,250.5) to (95,250.5)
@ transition line 1, from (95,250.5) to (95,250.5)
@ Octant Ws (1 offset), from (95,250.5) to (94,250.5)
@ transition line 0, from (95,250.5) to (94,250.5)
@ transition line 1, from (94,250.5) to (94,250.5)
@ Octant Sw (1 offset), from (94,250.5) to (94,-110.5)
@ transition line 2, from (94,250.5) to (94,250.5)
@ transition line 1, from (94,-109.5) to (94,-110.5)
(95,251)(94,251)
@ Octant Se (0 offsets), from (94,-110.5) to (94,-110.5)
@ transition line 0, from (94,-110.5) to (94,-110.5)
@ Octant Es (0 offsets), from (94,-110.5) to (94,-110.5)
@ transition line 1, from (94,-110.5) to (94,-110.5)
@ Octant En (1 offset), from (94,-110.5) to (95,-110.5)
@ transition line 0, from (94,-110.5) to (95,-110.5)
@ transition line 1, from (95,-110.5) to (95,-110.5)
(94,-110).
{[repeat the loop]}
{loop value=108}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(108,-110)
{begingroup}
{((108,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(108,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(108,250)
{begingroup}
{((108,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(108,250)
{addto}
Path at line 39, before choices:
(108,-110){curl 1}
..{curl 1}(108,250)
Path at line 39, after choices:
(108,-110)..controls (108,10) and (108,130)
..(108,250)
Path at line 39, before subdivision into octants:
(108,-110)..controls (108,10) and (108,130)
..(108,250)..controls (108,130) and (108,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(108.5,-110) % beginning in octant `Ne'
..controls (108.5,10) and (108.5,130)
..(108.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (108.5,130) and (108.5,10)
..(108.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (109,-110.5) to (109,250.5)
@ transition line 2, from (109,-110.5) to (109,-110.5)
@ transition line 1, from (109,249.5) to (109,250.5)
(109,-110)
@ Octant Nw (0 offsets), from (109,250.5) to (109,250.5)
@ transition line 0, from (109,250.5) to (109,250.5)
@ Octant Wn (0 offsets), from (109,250.5) to (109,250.5)
@ transition line 1, from (109,250.5) to (109,250.5)
@ Octant Ws (1 offset), from (109,250.5) to (108,250.5)
@ transition line 0, from (109,250.5) to (108,250.5)
@ transition line 1, from (108,250.5) to (108,250.5)
@ Octant Sw (1 offset), from (108,250.5) to (108,-110.5)
@ transition line 2, from (108,250.5) to (108,250.5)
@ transition line 1, from (108,-109.5) to (108,-110.5)
(109,251)(108,251)
@ Octant Se (0 offsets), from (108,-110.5) to (108,-110.5)
@ transition line 0, from (108,-110.5) to (108,-110.5)
@ Octant Es (0 offsets), from (108,-110.5) to (108,-110.5)
@ transition line 1, from (108,-110.5) to (108,-110.5)
@ Octant En (1 offset), from (108,-110.5) to (109,-110.5)
@ transition line 0, from (108,-110.5) to (109,-110.5)
@ transition line 1, from (109,-110.5) to (109,-110.5)
(108,-110).
{[repeat the loop]}
{loop value=121.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(121.5,-110)
{begingroup}
{((121.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(121.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(121.5,250)
{begingroup}
{((121.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(121.5,250)
{addto}
Path at line 39, before choices:
(121.5,-110){curl 1}
..{curl 1}(121.5,250)
Path at line 39, after choices:
(121.5,-110)..controls (121.5,10) and (121.5,130)
..(121.5,250)
Path at line 39, before subdivision into octants:
(121.5,-110)..controls (121.5,10) and (121.5,130)
..(121.5,250)..controls (121.5,130) and (121.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(121.5,-110) % beginning in octant `Ne'
..controls (121.5,10) and (121.5,130)
..(121.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (121.5,130) and (121.5,10)
..(121.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (122,-110.5) to (122,250.5)
@ transition line 2, from (122,-110.5) to (122,-110.5)
@ transition line 1, from (122,249.5) to (122,250.5)
(122,-110)
@ Octant Nw (0 offsets), from (122,250.5) to (122,250.5)
@ transition line 0, from (122,250.5) to (122,250.5)
@ Octant Wn (0 offsets), from (122,250.5) to (122,250.5)
@ transition line 1, from (122,250.5) to (122,250.5)
@ Octant Ws (1 offset), from (122,250.5) to (121,250.5)
@ transition line 0, from (122,250.5) to (121,250.5)
@ transition line 1, from (121,250.5) to (121,250.5)
@ Octant Sw (1 offset), from (121,250.5) to (121,-110.5)
@ transition line 2, from (121,250.5) to (121,250.5)
@ transition line 1, from (121,-109.5) to (121,-110.5)
(122,251)(121,251)
@ Octant Se (0 offsets), from (121,-110.5) to (121,-110.5)
@ transition line 0, from (121,-110.5) to (121,-110.5)
@ Octant Es (0 offsets), from (121,-110.5) to (121,-110.5)
@ transition line 1, from (121,-110.5) to (121,-110.5)
@ Octant En (1 offset), from (121,-110.5) to (122,-110.5)
@ transition line 0, from (121,-110.5) to (122,-110.5)
@ transition line 1, from (122,-110.5) to (122,-110.5)
(121,-110).
{[repeat the loop]}
{loop value=135}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(135,-110)
{begingroup}
{((135,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(135,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(135,250)
{begingroup}
{((135,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(135,250)
{addto}
Path at line 39, before choices:
(135,-110){curl 1}
..{curl 1}(135,250)
Path at line 39, after choices:
(135,-110)..controls (135,10) and (135,130)
..(135,250)
Path at line 39, before subdivision into octants:
(135,-110)..controls (135,10) and (135,130)
..(135,250)..controls (135,130) and (135,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(135.5,-110) % beginning in octant `Ne'
..controls (135.5,10) and (135.5,130)
..(135.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (135.5,130) and (135.5,10)
..(135.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (136,-110.5) to (136,250.5)
@ transition line 2, from (136,-110.5) to (136,-110.5)
@ transition line 1, from (136,249.5) to (136,250.5)
(136,-110)
@ Octant Nw (0 offsets), from (136,250.5) to (136,250.5)
@ transition line 0, from (136,250.5) to (136,250.5)
@ Octant Wn (0 offsets), from (136,250.5) to (136,250.5)
@ transition line 1, from (136,250.5) to (136,250.5)
@ Octant Ws (1 offset), from (136,250.5) to (135,250.5)
@ transition line 0, from (136,250.5) to (135,250.5)
@ transition line 1, from (135,250.5) to (135,250.5)
@ Octant Sw (1 offset), from (135,250.5) to (135,-110.5)
@ transition line 2, from (135,250.5) to (135,250.5)
@ transition line 1, from (135,-109.5) to (135,-110.5)
(136,251)(135,251)
@ Octant Se (0 offsets), from (135,-110.5) to (135,-110.5)
@ transition line 0, from (135,-110.5) to (135,-110.5)
@ Octant Es (0 offsets), from (135,-110.5) to (135,-110.5)
@ transition line 1, from (135,-110.5) to (135,-110.5)
@ Octant En (1 offset), from (135,-110.5) to (136,-110.5)
@ transition line 0, from (135,-110.5) to (136,-110.5)
@ transition line 1, from (136,-110.5) to (136,-110.5)
(135,-110).
{[repeat the loop]}
{loop value=148.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(148.5,-110)
{begingroup}
{((148.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(148.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(148.5,250)
{begingroup}
{((148.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(148.5,250)
{addto}
Path at line 39, before choices:
(148.5,-110){curl 1}
..{curl 1}(148.5,250)
Path at line 39, after choices:
(148.5,-110)..controls (148.5,10) and (148.5,130)
..(148.5,250)
Path at line 39, before subdivision into octants:
(148.5,-110)..controls (148.5,10) and (148.5,130)
..(148.5,250)..controls (148.5,130) and (148.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(148.5,-110) % beginning in octant `Ne'
..controls (148.5,10) and (148.5,130)
..(148.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (148.5,130) and (148.5,10)
..(148.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (149,-110.5) to (149,250.5)
@ transition line 2, from (149,-110.5) to (149,-110.5)
@ transition line 1, from (149,249.5) to (149,250.5)
(149,-110)
@ Octant Nw (0 offsets), from (149,250.5) to (149,250.5)
@ transition line 0, from (149,250.5) to (149,250.5)
@ Octant Wn (0 offsets), from (149,250.5) to (149,250.5)
@ transition line 1, from (149,250.5) to (149,250.5)
@ Octant Ws (1 offset), from (149,250.5) to (148,250.5)
@ transition line 0, from (149,250.5) to (148,250.5)
@ transition line 1, from (148,250.5) to (148,250.5)
@ Octant Sw (1 offset), from (148,250.5) to (148,-110.5)
@ transition line 2, from (148,250.5) to (148,250.5)
@ transition line 1, from (148,-109.5) to (148,-110.5)
(149,251)(148,251)
@ Octant Se (0 offsets), from (148,-110.5) to (148,-110.5)
@ transition line 0, from (148,-110.5) to (148,-110.5)
@ Octant Es (0 offsets), from (148,-110.5) to (148,-110.5)
@ transition line 1, from (148,-110.5) to (148,-110.5)
@ Octant En (1 offset), from (148,-110.5) to (149,-110.5)
@ transition line 0, from (148,-110.5) to (149,-110.5)
@ transition line 1, from (149,-110.5) to (149,-110.5)
(148,-110).
{[repeat the loop]}
{loop value=162}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(162,-110)
{begingroup}
{((162,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(162,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(162,250)
{begingroup}
{((162,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(162,250)
{addto}
Path at line 39, before choices:
(162,-110){curl 1}
..{curl 1}(162,250)
Path at line 39, after choices:
(162,-110)..controls (162,10) and (162,130)
..(162,250)
Path at line 39, before subdivision into octants:
(162,-110)..controls (162,10) and (162,130)
..(162,250)..controls (162,130) and (162,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(162.5,-110) % beginning in octant `Ne'
..controls (162.5,10) and (162.5,130)
..(162.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (162.5,130) and (162.5,10)
..(162.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (163,-110.5) to (163,250.5)
@ transition line 2, from (163,-110.5) to (163,-110.5)
@ transition line 1, from (163,249.5) to (163,250.5)
(163,-110)
@ Octant Nw (0 offsets), from (163,250.5) to (163,250.5)
@ transition line 0, from (163,250.5) to (163,250.5)
@ Octant Wn (0 offsets), from (163,250.5) to (163,250.5)
@ transition line 1, from (163,250.5) to (163,250.5)
@ Octant Ws (1 offset), from (163,250.5) to (162,250.5)
@ transition line 0, from (163,250.5) to (162,250.5)
@ transition line 1, from (162,250.5) to (162,250.5)
@ Octant Sw (1 offset), from (162,250.5) to (162,-110.5)
@ transition line 2, from (162,250.5) to (162,250.5)
@ transition line 1, from (162,-109.5) to (162,-110.5)
(163,251)(162,251)
@ Octant Se (0 offsets), from (162,-110.5) to (162,-110.5)
@ transition line 0, from (162,-110.5) to (162,-110.5)
@ Octant Es (0 offsets), from (162,-110.5) to (162,-110.5)
@ transition line 1, from (162,-110.5) to (162,-110.5)
@ Octant En (1 offset), from (162,-110.5) to (163,-110.5)
@ transition line 0, from (162,-110.5) to (163,-110.5)
@ transition line 1, from (163,-110.5) to (163,-110.5)
(162,-110).
{[repeat the loop]}
{loop value=175.5}
screenrule(EXPR0)(EXPR1)->addto.currentpicture.doublepath(EXPR0)..(EXPR1)withpe
n.rulepen
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
{-(110)}
(EXPR2)<-(175.5,-110)
{begingroup}
{((175.5,-110))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR0)<-(175.5,-110)
↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-(175.5,250)
{begingroup}
{((175.5,250))transformed((0,0,1,0,0,1))}
{endgroup}
(EXPR1)<-(175.5,250)
{addto}
Path at line 39, before choices:
(175.5,-110){curl 1}
..{curl 1}(175.5,250)
Path at line 39, after choices:
(175.5,-110)..controls (175.5,10) and (175.5,130)
..(175.5,250)
Path at line 39, before subdivision into octants:
(175.5,-110)..controls (175.5,10) and (175.5,130)
..(175.5,250)..controls (175.5,130) and (175.5,10)
..cycle
Cycle spec at line 39, after subdivision and autorounding:
(175.5,-110) % beginning in octant `Ne'
..controls (175.5,10) and (175.5,130)
..(175.5,250) % segment 0
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
% entering octant `Sw'
..controls (175.5,130) and (175.5,10)
..(175.5,-110) % segment 1
% entering octant `Se'
% entering octant `Es'
% entering octant `En'
& cycle
Tracing edges at line 39: (weight 1)
@ Octant Ne (1 offset), from (176,-110.5) to (176,250.5)
@ transition line 2, from (176,-110.5) to (176,-110.5)
@ transition line 1, from (176,249.5) to (176,250.5)
(176,-110)
@ Octant Nw (0 offsets), from (176,250.5) to (176,250.5)
@ transition line 0, from (176,250.5) to (176,250.5)
@ Octant Wn (0 offsets), from (176,250.5) to (176,250.5)
@ transition line 1, from (176,250.5) to (176,250.5)
@ Octant Ws (1 offset), from (176,250.5) to (175,250.5)
@ transition line 0, from (176,250.5) to (175,250.5)
@ transition line 1, from (175,250.5) to (175,250.5)
@ Octant Sw (1 offset), from (175,250.5) to (175,-110.5)
@ transition line 2, from (175,250.5) to (175,250.5)
@ transition line 1, from (175,-109.5) to (175,-110.5)
(176,251)(175,251)
@ Octant Se (0 offsets), from (175,-110.5) to (175,-110.5)
@ transition line 0, from (175,-110.5) to (175,-110.5)
@ Octant Es (0 offsets), from (175,-110.5) to (175,-110.5)
@ transition line 1, from (175,-110.5) to (175,-110.5)
@ Octant En (1 offset), from (175,-110.5) to (176,-110.5)
@ transition line 0, from (175,-110.5) to (176,-110.5)
@ transition line 1, from (176,-110.5) to (176,-110.5)
(175,-110).
{[repeat the loop]}
{if}
{(0)<>(0)}
{false}
showit->openit;let.showit=showit_;showit
openit->openwindow.currentwindow.from(0,0)to(screen_rows,screen_cols)at(-50,300
)
{openwindow}
{-(50)}
{let}
showit->display.currentpicture.inwindow.currentwindow
{display}
{fi}
{endgroup}
stop<expr>->message(EXPR0);gobble(readstring)
{decimal(38)}
{("done with char ")&("38")}
{("done with char 38")&(". ")}
(EXPR0)<-"done with char 38. "
{message}
done with char 38.
gobble(EXPR0)->
{readstring}
(EXPR0)<-""
)
Here is how much of METAFONT's memory you used:
178 strings out of 274
1531 string characters out of 9928
25282 words of memory out of 60001
643 symbolic tokens out of 2100
10i,63n,16r,30p,156b stack positions out of 30i,100n,300r,150p,500b
Output written on TTEST0.GF[CM,DEK] (1 character, 2332 bytes).